diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-03-16 12:01:10 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-03-16 12:01:10 +0000 |
| commit | 6b845e562be40aac749b544b6d494078c54de4aa (patch) | |
| tree | d5a207f6b231caa5faad6581a9fcfb1d98b1a2d0 /t/comp | |
| parent | b7bef49178837907ea521cdab1ee49994bf99cf6 (diff) | |
| download | perl-6b845e562be40aac749b544b6d494078c54de4aa.tar.gz | |
require should ignore directories found when searching @INC not just
die as soon as it finds one. It should for instance be possible to
for require "File" to read the file "./File" even if there happens to
be a "File" directory in perl's standard library.
This fixes the RT #24404 fix in change 26373.
p4raw-id: //depot/perl@27515
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/require.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index 72f11d8260..d06834a3c5 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -183,7 +183,7 @@ $foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i; my $r = "threads"; eval { require $r }; $i++; -if($@ =~ /Directory .*threads not allowed in require/) { +if($@ =~ /Can't locate threads in \@INC/) { print "ok $i\n"; } else { print "not ok $i\n"; |