develooper Front page | perl.perl5.porters | Postings from March 2000

[PATCH 5.5.670] FindBin.pm cleanup

From:
Greg Bacon
Date:
March 1, 2000 09:49
Subject:
[PATCH 5.5.670] FindBin.pm cleanup
Message ID:
200003011757.LAA23558@ruby.itsc.uah.edu
--- perl-5.5.670.dist/lib/FindBin.pm	Wed Dec  8 00:23:12 1999
+++ perl-5.5.670/lib/FindBin.pm	Wed Mar  1 11:56:43 2000
@@ -102,7 +102,7 @@
 
    if ($^O eq 'VMS')
     {
-     ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*\])(.*)/;
+     ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*\])(.*)/s;
      ($RealBin,$RealScript) = ($Bin,$Script);
     }
    else
End of Patch.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About