From fe6f1558c7f680030b5f50795459bce8c0b94ba1 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 2 Mar 2000 20:08:10 +0000
Subject: still other multiline match cleanups (from Greg Bacon)

p4raw-id: //depot/perl@5450
---
 lib/blib.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/blib.pm')

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);
   }
-- 
cgit v1.2.1