ExtUtils::MakeMaker 6.55_02

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / Installapi2.t

diff --git a/lib/ExtUtils/t/Installapi2.t b/lib/ExtUtils/t/Installapi2.t
index e5a6516..c59b8ab 100644 (file)
--- a/lib/ExtUtils/t/Installapi2.t
+++ b/lib/ExtUtils/t/Installapi2.t
@@ -34,7 +34,10 @@ END {
     ok( chdir File::Spec->updir );
     ok( teardown_recurs(), 'teardown' );
 }
-
+# ensure the env doesnt pollute our tests
+local $ENV{EU_INSTALL_ALWAYS_COPY};
+local $ENV{EU_ALWAYS_COPY};    
+    
 chdir 'Big-Dummy';
 
 my $stdout = tie *STDOUT, 'TieOut';
@@ -191,7 +194,7 @@ close DUMMY;
 {
   local @INC = ('install-test/lib/perl');
   local $ENV{PERL5LIB} = '';
-  local $ENV{EU_ALWAYS_COPY}=1;
+  local $ENV{EU_INSTALL_ALWAYS_COPY}=1;
   my $tfile='install-test/other_lib/perl/Big/Dummy.pm';
   my $sfile='blib/lib/Big/Dummy.pm';
   ok(-r $tfile,"install file already exists");
@@ -205,14 +208,17 @@ close DUMMY;
   ok( -d 'install-test/other_lib/perl',        'install made other dir' );
   ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', '  .pm file installed' );
   ok( -r 'install-test/packlist',              '  packlist exists' );
-  ok( (stat $tfile)[9]==(stat$sfile)[9],'  Times are same');
+SKIP: {
+  skip "Times not preserved during copy by default", 1 if $^O eq 'VMS';
+  ok( (stat $tfile)[9]==(stat $sfile)[9],'  Times are same');
+}
   ok( !$result{install_unchanged},'  $result{install_unchanged} should be empty');
 }
 # Test nothing is copied.
 {
   local @INC = ('install-test/lib/perl');
   local $ENV{PERL5LIB} = '';
-  local $ENV{EU_ALWAYS_COPY}=0;
+  local $ENV{EU_INSTALL_ALWAYS_COPY}=0;
   my $tfile='install-test/other_lib/perl/Big/Dummy.pm';
   my $sfile='blib/lib/Big/Dummy.pm';
   ok(-r $tfile,"install file already exists");
@@ -229,4 +235,4 @@ close DUMMY;
   ok( (stat $tfile)[9]!=(stat$sfile)[9],'  Times are different');
   ok( !$result{install},'  nothing should have been installed');
   ok( $result{install_unchanged},'  install_unchanged should be populated');
-}
\ No newline at end of file
+}