From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 Feb 2009 13:23:30 +0000 (+0000)
Subject: Temporarily reverse out change cd5cc49dbc0e5ee748252c2da8b435855908e6d2.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97b85144d809e3866fb88a144a1ac0245a7ac16b;p=p5sagit%2Fp5-mst-13.2.git

Temporarily reverse out change cd5cc49dbc0e5ee748252c2da8b435855908e6d2.
---

diff --git a/lib/Module/Build.pm b/lib/Module/Build.pm
index 4f16ad6..8ff3eab 100644
--- a/lib/Module/Build.pm
+++ b/lib/Module/Build.pm
@@ -15,7 +15,7 @@ use Module::Build::Base;
 
 use vars qw($VERSION @ISA);
 @ISA = qw(Module::Build::Base);
-$VERSION = '0.31012_01';
+$VERSION = '0.31012';
 $VERSION = eval $VERSION;
 
 # Okay, this is the brute-force method of finding out what kind of
diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm
index f345274..95dfbbd 100644
--- a/lib/Module/Build/Base.pm
+++ b/lib/Module/Build/Base.pm
@@ -2817,7 +2817,7 @@ sub htmlify_pods {
     my ($name, $path) = File::Basename::fileparse($pods->{$pod},
                                                  file_qr('\.(?:pm|plx?|pod)$'));
     my @dirs = File::Spec->splitdir( File::Spec->canonpath( $path ) );
-    pop( @dirs ) if scalar(@dirs) && $dirs[-1] eq File::Spec->curdir;
+    pop( @dirs ) if $dirs[-1] eq File::Spec->curdir;
 
     my $fulldir = File::Spec->catfile($htmldir, @rootdirs, @dirs);
     my $outfile = File::Spec->catfile($fulldir, "${name}.html");
@@ -4061,7 +4061,7 @@ sub install_map {
       # Need to remove volume from $map{$_} using splitpath, or else
       # we'll create something crazy like C:\Foo\Bar\E:\Baz\Quux
       # VMS will always have the file separate than the path.
-      my ($volume, $path, $file) = File::Spec->splitpath( $map{$_}, 0 );
+      my ($volume, $path, $file) = File::Spec->splitpath( $map{$_}, 1 );
 
       # catdir needs a list of directories, or it will create something
       # crazy like volume:[Foo.Bar.volume.Baz.Quux]
diff --git a/lib/Module/Build/Compat.pm b/lib/Module/Build/Compat.pm
index 0da3b8c..328d070 100644
--- a/lib/Module/Build/Compat.pm
+++ b/lib/Module/Build/Compat.pm
@@ -279,7 +279,7 @@ sub fake_makefile {
 
   my $Build = 'Build' . $filetype . ' --makefile_env_macros 1';
   my $unlink = $class->oneliner('1 while unlink $ARGV[0]', [], [$args{makefile}]);
-  $unlink =~ s/\$/\$\$/g unless $class->is_vmsish;
+  $unlink =~ s/\$/\$\$/g;
 
   my $maketext = <<"EOF";
 all : force_do_it
diff --git a/lib/Module/Build/Platform/VMS.pm b/lib/Module/Build/Platform/VMS.pm
index 227bc14..2353e02 100644
--- a/lib/Module/Build/Platform/VMS.pm
+++ b/lib/Module/Build/Platform/VMS.pm
@@ -188,21 +188,6 @@ sub do_system {
   return !system("$cmd $args");
 }
 
-=item oneliner
-
-Override to ensure that we do not quote the command.
-
-=cut
-
-sub oneliner {
-    my $self = shift;
-    my $oneliner = $self->SUPER::oneliner(@_);
-
-    $oneliner =~ s/^\"\S+\"//;
-
-    return "MCR $^X $oneliner";
-}
-
 =item _infer_xs_spec
 
 Inherit the standard version but tweak the library file name to be 
@@ -324,7 +309,6 @@ sub _detildefy {
 
         # Trivial case of just ~ by it self
         if ($spec eq '') {
-            $home =~ s#/$##;
             return $home;
         }
 
@@ -401,20 +385,6 @@ sub localize_dir_path {
   return VMS::Filespec::vmspath($path);
 }
 
-=item ACTION_clean
-
-The home-grown glob() expands a bit too aggressively when given a bare name,
-so default in a zero-length extension.
-
-=cut
-
-sub ACTION_clean {
-  my ($self) = @_;
-  foreach my $item (map glob(VMS::Filespec::rmsexpand($_, '.;0')), $self->cleanup) {
-    $self->delete_filetree($item);
-  }
-}
-
 =back
 
 =head1 AUTHOR
diff --git a/lib/Module/Build/t/compat.t b/lib/Module/Build/t/compat.t
index 0566ca7..d12898b 100644
--- a/lib/Module/Build/t/compat.t
+++ b/lib/Module/Build/t/compat.t
@@ -230,7 +230,7 @@ ok $mb, "Module::Build->new_from_context";
   ok $ran_ok, "make fakeinstall with INSTALLDIRS=vendor ran ok";
   $output =~ s/^/# /gm;  # Don't confuse our own test output
   like $output,
-       qr/\Q$libdir2\E .* Simple\.pm/ix,
+       qr/\Q$libdir2\E .* Simple\.pm/x,
        'Should have installdirs=vendor';
 
   stdout_of( sub { $mb->do_system(@make, 'realclean'); } );