r26019 - in /branches/upstream/libextutils-command-perl/current: Changes MANIFEST META.yml lib/ExtUtils/Command.pm t/cp.t t/eu_command.t

[rmayorga-guest at users.alioth.debian.org]

Author: rmayorga-guest
Date: Tue Oct 14 15:28:23 2008
New Revision: 26019

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26019
Log:
[svn-upgrade] Integrating new upstream version, libextutils-command-perl (1.15)

Added:
    branches/upstream/libextutils-command-perl/current/t/cp.t
Modified:
    branches/upstream/libextutils-command-perl/current/Changes
    branches/upstream/libextutils-command-perl/current/MANIFEST
    branches/upstream/libextutils-command-perl/current/META.yml
    branches/upstream/libextutils-command-perl/current/lib/ExtUtils/Command.pm
    branches/upstream/libextutils-command-perl/current/t/eu_command.t

Modified: branches/upstream/libextutils-command-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-command-perl/current/Changes?rev=26019&op=diff
==============================================================================
--- branches/upstream/libextutils-command-perl/current/Changes (original)
+++ branches/upstream/libextutils-command-perl/current/Changes Tue Oct 14 15:28:23 2008
@@ -1,3 +1,8 @@
+1.15  Sun, Oct 12, 2008
+  - cp fails to update timestamp on Win32:
+     http://rt.cpan.org/Ticket/Display.html?id=34718
+    Patch supplied by MSCHWERN
+
 1.14  Wed, Mar 12, 2008
   - fix bug in Shell::Command, revealed by fix in version 0.78 of 
     Test::Simple, as described at

Modified: branches/upstream/libextutils-command-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-command-perl/current/MANIFEST?rev=26019&op=diff
==============================================================================
--- branches/upstream/libextutils-command-perl/current/MANIFEST (original)
+++ branches/upstream/libextutils-command-perl/current/MANIFEST Tue Oct 14 15:28:23 2008
@@ -5,6 +5,7 @@
 MANIFEST			This list of files
 README
 Changes
+t/cp.t
 t/eu_command.t
 t/shell_command.t
 t/shell_exit.t

Modified: branches/upstream/libextutils-command-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-command-perl/current/META.yml?rev=26019&op=diff
==============================================================================
--- branches/upstream/libextutils-command-perl/current/META.yml (original)
+++ branches/upstream/libextutils-command-perl/current/META.yml Tue Oct 14 15:28:23 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:         ExtUtils-Command
-version:      1.14
+version:      1.15
 version_from: lib/ExtUtils/Command.pm
 installdirs:  perl
 license:      perl
@@ -13,7 +13,7 @@
 provides:
   ExtUtils::Command:
     file: lib/ExtUtils/Command.pm
-    version: 1.14
+    version: 1.15
   Shell::Command:
     file: lib/Shell/Command.pm
     version: 0.04

Modified: branches/upstream/libextutils-command-perl/current/lib/ExtUtils/Command.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-command-perl/current/lib/ExtUtils/Command.pm?rev=26019&op=diff
==============================================================================
--- branches/upstream/libextutils-command-perl/current/lib/ExtUtils/Command.pm (original)
+++ branches/upstream/libextutils-command-perl/current/lib/ExtUtils/Command.pm Tue Oct 14 15:28:23 2008
@@ -12,9 +12,11 @@
 @ISA       = qw(Exporter);
 @EXPORT    = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod
                 dos2unix);
-$VERSION = '1.14';
-
-my $Is_VMS = $^O eq 'VMS';
+$VERSION = '1.15';
+
+my $Is_VMS   = $^O eq 'VMS';
+my $Is_Win32 = $^O eq 'MSWin32';
+
 
 =head1 NAME
 
@@ -210,6 +212,10 @@
     my $nok = 0;
     foreach my $src (@src) {
         $nok ||= !copy($src,$dst);
+
+        # Win32 does not update the mod time of a copied file, just the
+        # created time which make does not look at.
+        utime(time, time, $dst) if $Is_Win32;
     }
     return $nok;
 }

Added: branches/upstream/libextutils-command-perl/current/t/cp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-command-perl/current/t/cp.t?rev=26019&op=file
==============================================================================
--- branches/upstream/libextutils-command-perl/current/t/cp.t (added)
+++ branches/upstream/libextutils-command-perl/current/t/cp.t Tue Oct 14 15:28:23 2008
@@ -1,0 +1,33 @@
+#!/usr/bin/perl -w
+
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ('../lib', 'lib/');
+    }
+    else {
+        unshift @INC, 't/lib/';
+    }
+}
+chdir 't';
+
+use ExtUtils::Command;
+use Test::More tests => 1;
+
+open FILE, ">source" or die $!;
+print FILE "stuff\n";
+close FILE;
+
+# Instead of sleeping to make the file time older
+utime time - 900, time - 900, "source";
+
+END { 1 while unlink "source", "dest"; }
+
+# Win32 bug, cp wouldn't update mtime.
+{
+    local @ARGV = qw(source dest);
+    cp();
+    my $mtime = (stat("dest"))[9];
+    my $now   = time;
+    cmp_ok( abs($mtime - $now), '<=', 1, 'cp updated mtime' );
+}

Modified: branches/upstream/libextutils-command-perl/current/t/eu_command.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-command-perl/current/t/eu_command.t?rev=26019&op=diff
==============================================================================
--- branches/upstream/libextutils-command-perl/current/t/eu_command.t (original)
+++ branches/upstream/libextutils-command-perl/current/t/eu_command.t Tue Oct 14 15:28:23 2008
@@ -22,10 +22,8 @@
     File::Path::rmtree( 'ecmddir' );
 }
 
-BEGIN {
-    use Test::More tests => 40;
-    use File::Spec;
-}
+use Test::More tests => 40;
+use File::Spec;
 
 BEGIN {
     # bad neighbor, but test_f() uses exit()