diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 16:55:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 16:55:47 +0000 |
| commit | 14a089c51ea6b2fce5bd014173040a53a4fe588c (patch) | |
| tree | 33bb2fdd43ef489dff2f9cb7ac7c465f91756a9a /lib/AutoLoader.pm | |
| parent | 228515436ab73df2fc5bb6a3bf2cf5e72ce8bda7 (diff) | |
| download | perl-14a089c51ea6b2fce5bd014173040a53a4fe588c.tar.gz | |
more multiline match cleanups (from Greg Bacon)
p4raw-id: //depot/perl@5403
Diffstat (limited to 'lib/AutoLoader.pm')
| -rw-r--r-- | lib/AutoLoader.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index d62ceb0587..8fd7d3b8fe 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -36,7 +36,7 @@ AUTOLOAD { my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); $pkg =~ s#::#/#g; if (defined($filename = $INC{"$pkg.pm"})) { - $filename =~ s#^(.*)$pkg\.pm$#$1auto/$pkg/$func.al#; + $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s; # if the file exists, then make sure that it is a # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al', @@ -45,9 +45,9 @@ AUTOLOAD { # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib'). if (-r $filename) { - unless ($filename =~ m|^/|) { + unless ($filename =~ m|^/|s) { if ($is_dosish) { - unless ($filename =~ m{^([a-z]:)?[\\/]}i) { + unless ($filename =~ m{^([a-z]:)?[\\/]}is) { $filename = "./$filename"; } } |