r53204 - in /trunk/libsysadm-install-perl: Changes META.yml Makefile.PL README debian/changelog debian/control debian/copyright lib/Sysadm/Install.pm t/003slurp.t t/005qquote.t t/006perm.t t/012tap.t

angelabad-guest at users.alioth.debian.org angelabad-guest at users.alioth.debian.org
Mon Feb 22 16:39:24 UTC 2010


Author: angelabad-guest
Date: Mon Feb 22 16:39:02 2010
New Revision: 53204

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53204
Log:
New upstream release 0.34

Modified:
    trunk/libsysadm-install-perl/Changes
    trunk/libsysadm-install-perl/META.yml
    trunk/libsysadm-install-perl/Makefile.PL
    trunk/libsysadm-install-perl/README
    trunk/libsysadm-install-perl/debian/changelog
    trunk/libsysadm-install-perl/debian/control
    trunk/libsysadm-install-perl/debian/copyright
    trunk/libsysadm-install-perl/lib/Sysadm/Install.pm
    trunk/libsysadm-install-perl/t/003slurp.t
    trunk/libsysadm-install-perl/t/005qquote.t
    trunk/libsysadm-install-perl/t/006perm.t
    trunk/libsysadm-install-perl/t/012tap.t

Modified: trunk/libsysadm-install-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/Changes?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/Changes (original)
+++ trunk/libsysadm-install-perl/Changes Mon Feb 22 16:39:02 2010
@@ -1,6 +1,11 @@
 ########################################
 Revision history for Sysadm::Install
 ########################################
+
+0.34  (2010/02/21)
+    (ms) Added github repository link to Makefile.PL
+    (ms) [RT 53324] bin_find fix for Windows using $Config::Config{path_sep}
+    (ms) [RT 54555] Fixed test suite errors on Win32
 
 0.33 (2009/09/12)
     (ms) utf8_available() now uses eval"" to check for Encode module, 

Modified: trunk/libsysadm-install-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/META.yml?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/META.yml (original)
+++ trunk/libsysadm-install-perl/META.yml Mon Feb 22 16:39:02 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Sysadm-Install
-version:            0.33
+version:            0.34
 abstract:           Typical installation tasks for system administrators
 author:
     - Mike Schilli <m at perlmeister.com>

Modified: trunk/libsysadm-install-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/Makefile.PL?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/Makefile.PL (original)
+++ trunk/libsysadm-install-perl/Makefile.PL Mon Feb 22 16:39:02 2010
@@ -2,6 +2,14 @@
 use ExtUtils::MakeMaker;
 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
 # the contents of the Makefile that is written.
+
+my $meta_merge = {
+    META_MERGE => {
+        resources => {
+            repository  => 'http://github.com/mschilli/sysadm-install-perl',
+        },
+    }
+};
 
 eval {
     require Expect;
@@ -41,11 +49,8 @@
         Cwd             => 0,
         File::Temp      => 0.16,
                          }, # e.g., Module::Name => 1.1
-    META_MERGE          => {
-        resources       => {
-            repository  => 'http://github.com/mschilli/sysadm-install-perl',
-        },
-    },
+   
+    $ExtUtils::MakeMaker::VERSION >= 6.50 ? (%$meta_merge) : (),
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
       (ABSTRACT_FROM  => 'lib/Sysadm/Install.pm', # retrieve abstract from module
        AUTHOR         => 'Mike Schilli <m at perlmeister.com>') : ()),

Modified: trunk/libsysadm-install-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/README?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/README (original)
+++ trunk/libsysadm-install-perl/README Mon Feb 22 16:39:02 2010
@@ -1,5 +1,5 @@
 ######################################################################
-    Sysadm::Install 0.33
+    Sysadm::Install 0.34
 ######################################################################
 
 NAME

Modified: trunk/libsysadm-install-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/debian/changelog?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/debian/changelog (original)
+++ trunk/libsysadm-install-perl/debian/changelog Mon Feb 22 16:39:02 2010
@@ -1,3 +1,10 @@
+libsysadm-install-perl (0.34-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Add myself to uploaders
+
+ -- Angel Abad <angelabad at gmail.com>  Mon, 22 Feb 2010 17:28:00 +0100
+
 libsysadm-install-perl (0.33-2) unstable; urgency=low
 
   [ Ryan Niebur ]

Modified: trunk/libsysadm-install-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/debian/control?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/debian/control (original)
+++ trunk/libsysadm-install-perl/debian/control Mon Feb 22 16:39:02 2010
@@ -2,12 +2,14 @@
 Section: perl
 Priority: optional
 Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: perl, perl (>= 5.10) | libarchive-tar-perl,
- liblog-log4perl-perl, libterm-readkey-perl, libwww-perl
+Build-Depends-Indep: liblog-log4perl-perl, libterm-readkey-perl,
+ libwww-perl, perl, perl (>= 5.10) | libarchive-tar-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: gregor herrmann <gregoa at debian.org>,
- Ryan Niebur <ryan at debian.org>, Nathan Handler <nhandler at ubuntu.com>,
- Jonathan Yu <jawnsy at cpan.org>, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+ Ryan Niebur <ryan at debian.org>,
+ Nathan Handler <nhandler at ubuntu.com>, Jonathan Yu <jawnsy at cpan.org>,
+ Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>,
+ Angel Abad <angelabad at gmail.com>
 Standards-Version: 3.8.3
 Homepage: http://search.cpan.org/dist/Sysadm-Install/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsysadm-install-perl/
@@ -15,9 +17,9 @@
 
 Package: libsysadm-install-perl
 Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends},
- liblog-log4perl-perl (>= 1), libterm-readkey-perl, libwww-perl
-Suggests: perl (>= 5.10) | libarchive-tar-perl, libexpect-perl
+Depends: ${misc:Depends}, ${perl:Depends}, liblog-log4perl-perl,
+ libterm-readkey-perl, libwww-perl
+Suggests: libexpect-perl, perl (>= 5.10) | libarchive-tar-perl
 Description: module for typical installation tasks of system administrators
  Sysadm::Install executes shell-like commands performing typical
  installation tasks: Copying files, extracting tarballs, calling make.

Modified: trunk/libsysadm-install-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/debian/copyright?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/debian/copyright (original)
+++ trunk/libsysadm-install-perl/debian/copyright Mon Feb 22 16:39:02 2010
@@ -1,11 +1,11 @@
-Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
 Maintainer: Mike Schilli <m at perlmeister.com>
 Source: http://search.cpan.org/dist/Sysadm-Install/
 Name: Sysadm-Install
 
 Files: *
-Copyright: Copyright (C) 2004-2007 by Mike Schilli
-License: Artistic or GPL-1+
+Copyright: 2004-2007, Mike Schilli <m at perlmeister.com>
+License: Artistic or GPL-1+ 
 
 Files: debian/*
 Copyright: 2005, Florian Ragwitz <rafl at debianforum.de>
@@ -15,6 +15,7 @@
  2009, Nathan Handler <nhandler at ubuntu.com>
  2009, Ryan Niebur <ryan at debian.org>
  2009, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+ 2010, Angel Abad <angelabad at gmail.com>
 License: Artistic or GPL-1+
 
 License: Artistic

Modified: trunk/libsysadm-install-perl/lib/Sysadm/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/lib/Sysadm/Install.pm?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/lib/Sysadm/Install.pm (original)
+++ trunk/libsysadm-install-perl/lib/Sysadm/Install.pm Mon Feb 22 16:39:02 2010
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.33';
+our $VERSION = '0.34';
 
 use File::Copy;
 use File::Path;
@@ -1345,7 +1345,11 @@
 ######################################
     my($exe) = @_;
 
-    for my $path (split /:/, $ENV{PATH}) {
+    require Config;
+    my $path_sep = ":";
+    $path_sep = $Config::Config{path_sep} if defined $Config::Config{path_sep};
+
+    for my $path (split /$path_sep/, $ENV{PATH}) {
         my $full = File::Spec->catfile($path, $exe);
 
         return $full if -x $full;

Modified: trunk/libsysadm-install-perl/t/003slurp.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/t/003slurp.t?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/t/003slurp.t (original)
+++ trunk/libsysadm-install-perl/t/003slurp.t Mon Feb 22 16:39:02 2010
@@ -29,8 +29,11 @@
 #####################################################################
 # Blurt atomically
 #####################################################################
-blurt_atomic("one\ntwo\nthree", $TMP_FILE);
-ok(-f $TMP_FILE, "$TMP_FILE exists");
+SKIP: {
+  skip "Renaming tmp files not supported on Win32", 1 if $^O eq "MSWin32";
+  blurt_atomic("one\ntwo\nthree", $TMP_FILE);
+  ok(-f $TMP_FILE, "$TMP_FILE exists");
+}
 
 #####################################################################
 # Slurp

Modified: trunk/libsysadm-install-perl/t/005qquote.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/t/005qquote.t?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/t/005qquote.t (original)
+++ trunk/libsysadm-install-perl/t/005qquote.t Mon Feb 22 16:39:02 2010
@@ -14,22 +14,26 @@
 
 ok(1, "loading ok");
 
-my $script  = 'print "$< rocks!\\n";';
-my $escaped = qquote($script, '!$'); # Escape for shell use
-my $out = `perl -e $escaped`;
+SKIP: {
+  skip "Quoting not supported on Win32", 4 if $^O eq "MSWin32";
 
-is($out, "$< rocks!\n", "simple escape");
-
-$escaped = qquote($script, '!$][)('); # Escape for shell use
-
-    # shell escape
-$escaped = qquote('[some]$thing(weird)"`', ":shell");
-is($escaped, '"[some]\\$thing(weird)\\"\\`"', ":shell");
-
-    # single quote
-$escaped = quote("[some]\$thing(weird)'`");
-is($escaped, "'[some]\$thing(weird)\\'`'", "single quote");
-
-    # single quote containing single quote
-$escaped = quote("foo'bar", ":shell");
-is($escaped, "'foo'\\''bar'", "foo'bar");
+  my $script  = 'print "$< rocks!\\n";';
+  my $escaped = qquote($script, '!$'); # Escape for shell use
+  my $out = `$^X -e $escaped`;
+  
+  is($out, "$< rocks!\n", "simple escape");
+  
+  $escaped = qquote($script, '!$][)('); # Escape for shell use
+  
+      # shell escape
+  $escaped = qquote('[some]$thing(weird)"`', ":shell");
+  is($escaped, '"[some]\\$thing(weird)\\"\\`"', ":shell");
+  
+      # single quote
+  $escaped = quote("[some]\$thing(weird)'`");
+  is($escaped, "'[some]\$thing(weird)\\'`'", "single quote");
+  
+      # single quote containing single quote
+  $escaped = quote("foo'bar", ":shell");
+  is($escaped, "'foo'\\''bar'", "foo'bar");
+}

Modified: trunk/libsysadm-install-perl/t/006perm.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/t/006perm.t?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/t/006perm.t (original)
+++ trunk/libsysadm-install-perl/t/006perm.t Mon Feb 22 16:39:02 2010
@@ -14,12 +14,17 @@
 
 ok(1, "loading ok");
 
-my $testfile = File::Spec->catfile($TEST_DIR, "test_file");
-blurt("waaaah!", $testfile);
-END { unlink $testfile, "${testfile}_2" }; 
+my $testfile = "";
 
-chmod(0755, $testfile) or die "Cannot chmod";
-cp($testfile, "${testfile}_2");
-Sysadm::Install::perm_cp($testfile, "${testfile}_2");
+SKIP: {
+  skip "Executable file perms not supported on Win32", 1 if $^O eq "MSWin32";
+  $testfile = File::Spec->catfile($TEST_DIR, "test_file");
+  blurt("waaaah!", $testfile);
+  END { unlink $testfile, "${testfile}_2" }; 
 
-ok(-x "${testfile}_2", "copied file has same permissions");
+  chmod(0755, $testfile) or die "Cannot chmod";
+  cp($testfile, "${testfile}_2");
+  Sysadm::Install::perm_cp($testfile, "${testfile}_2");
+  
+  ok(-x "${testfile}_2", "copied file has same permissions");
+}

Modified: trunk/libsysadm-install-perl/t/012tap.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/t/012tap.t?rev=53204&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/t/012tap.t (original)
+++ trunk/libsysadm-install-perl/t/012tap.t Mon Feb 22 16:39:02 2010
@@ -6,5 +6,8 @@
 
 use Sysadm::Install qw(:all);
 
-my($stdout, $stderr, $rc) = tap "echo", "'";
-is($stdout, "'\n", "single quoted tap");
+SKIP: {
+  skip "echo not supported on Win32", 1 if $^O eq "MSWin32";
+  my($stdout, $stderr, $rc) = tap "echo", "'";
+  is($stdout, "'\n", "single quoted tap");
+}




More information about the Pkg-perl-cvs-commits mailing list