make xsubpp generate well-formed code with CAPI && !PERL_OBJECT

[p5sagit/p5-mst-13.2.git] / lib / FindBin.pm

diff --git a/lib/FindBin.pm b/lib/FindBin.pm
index 918775c..d6bd7b7 100644 (file)
--- a/lib/FindBin.pm
+++ b/lib/FindBin.pm
@@ -82,12 +82,12 @@ use File::Basename;
 %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]);
 @ISA = qw(Exporter);
 
-$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
+$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
 
 sub is_abs_path
 {
  local $_ = shift if (@_);
- if ($^O eq 'MSWin32')
+ if ($^O eq 'MSWin32' || $^O eq 'dos')
   {
    return m#^[a-z]:[\\/]#i;
   }
@@ -131,7 +131,7 @@ BEGIN
             && -f $script)
       {
        my $dir;
-       my $pathvar = ($IsWin32) ? 'Path' : 'PATH';
+       my $pathvar = 'PATH';
 
        foreach $dir (split(/$Config{'path_sep'}/,$ENV{$pathvar}))
        {