diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-02 20:08:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-02 20:08:10 +0000 |
| commit | 1e83228971ec86840a621ddc84849307a2625ba6 (patch) | |
| tree | fa4ecf32f56db337590e06b5c228de3a44c69d65 /lib/blib.pm | |
| parent | 40f6a26d61a339cc253fb2cb8ac619ff0d934a10 (diff) | |
| download | perl-1e83228971ec86840a621ddc84849307a2625ba6.tar.gz | |
still other multiline match cleanups (from Greg Bacon)
p4raw-id: //depot/perl@5450
Diffstat (limited to 'lib/blib.pm')
| -rw-r--r-- | lib/blib.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/blib.pm b/lib/blib.pm index 1d56a58174..0916f797fd 100644 --- a/lib/blib.pm +++ b/lib/blib.pm @@ -45,12 +45,12 @@ sub import { my $package = shift; my $dir = getcwd; - if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/$--; } + if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; } if (@_) { $dir = shift; - $dir =~ s/blib$//; - $dir =~ s,/+$,,; + $dir =~ s/blib\z//; + $dir =~ s,/+\z,,; $dir = '.' unless ($dir); die "$dir is not a directory\n" unless (-d $dir); } |