Doesn’t Perl include current directory in @INC by default?

by

Perl doesn’t search the current directory for modules or the script’s directory for modules, at least not anymore. The current directory was removed from @INC in 5.26 for security reasons.

However, any code that relies on the current directory being in @INC was buggy far before 5.26. Code that did so, like yours, incorrectly used the current directory as a proxy for the script’s directory. That assumption is often incorrect.

To tell Perl to look in the script’s directory for modules, use the following:

use FindBin 1.51 qw( $RealBin );
use lib $RealBin;

or

use Cwd qw( abs_path );
use File::Basename qw( dirname );
use lib dirname(abs_path($0));

More Related Contents:

  1. Data consolidation using Perl [closed]
  2. How can i do this in perl, shortcut truthtable [closed]
  3. How to retrieve the values of required keys in Perl [closed]
  4. Perl: Meaning of double squared brackets after a string?
  5. What does this HTML::Parser() code do in Perl? [closed]
  6. Why use strict and warnings?
  7. Why does modern Perl avoid UTF-8 by default?
  8. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  9. What’s the difference between Perl’s backticks, system, and exec?
  10. Perl daemonize with child daemons
  11. How can I output UTF-8 from Perl?
  12. How do I “use” a Perl module in a directory not in @INC?
  13. Using perl’s `system`
  14. What’s the best way to open and read a file in Perl?
  15. How do I daemonize an arbitrary script in unix?
  16. How can I compile my Perl script so it can be executed on systems without ‘perl’ installed?
  17. How can I store the result of a system command in a Perl variable?
  18. How can I check if a file exists in Perl?
  19. How can I guess the encoding of a string in Perl?
  20. Using Encode::encode with “utf8”
  21. How can I start an interactive console for Perl?
  22. What does =~ do in Perl? [closed]
  23. Using my with parentheses and only one variable
  24. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  25. Do you use an exception class in your Perl programs? Why or why not?
  26. What does shift() do in Perl?
  27. How can I extract text from a PDF file in Perl?
  28. How do I retrieve the terminal width in Perl?
  29. In Perl, is it appropriate to use map in void context instead of a foreach loop?
  30. How does a Perl program know where to find the file containing Perl module it uses?

Leave a Comment