More leniency to the \p and \P: now can have whitespace

[perl5.git] / lib / FindBin.pm

diff --git a/lib/FindBin.pm b/lib/FindBin.pm
index 91958a8..41cd0fa 100644 (file)
--- a/lib/FindBin.pm
+++ b/lib/FindBin.pm
@@ -82,7 +82,7 @@ use File::Spec;
 %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]);
 @ISA = qw(Exporter);
 
-$VERSION = "1.42";
+$VERSION = "1.43";
 
 BEGIN
 {
@@ -107,7 +107,7 @@ BEGIN
     }
    else
     {
-     my $doshish = ($^O eq 'MSWin32' or $^O eq 'os2');
+     my $dosish = ($^O eq 'MSWin32' or $^O eq 'os2');
      unless(($script =~ m#/# || ($dosish && $script =~ m#\\#))
             && -f $script)
       {