r76588 - in /branches/upstream/libsysadm-install-perl/current: Changes META.yml README lib/Sysadm/Install.pm t/012tap.t

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

Author: angelabad-guest
Date: Sun Jun 26 13:03:23 2011
New Revision: 76588

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76588
Log:
[svn-upgrade] new version libsysadm-install-perl (0.37)

Modified:
    branches/upstream/libsysadm-install-perl/current/Changes
    branches/upstream/libsysadm-install-perl/current/META.yml
    branches/upstream/libsysadm-install-perl/current/README
    branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm
    branches/upstream/libsysadm-install-perl/current/t/012tap.t

Modified: branches/upstream/libsysadm-install-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/Changes?rev=76588&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/Changes (original)
+++ branches/upstream/libsysadm-install-perl/current/Changes Sun Jun 26 13:03:23 2011
@@ -1,6 +1,10 @@
 ########################################
 Revision history for Sysadm::Install
 ########################################
+
+0.37  (2011/06/25)
+    (ms) [rt.cpan.org #68095] Applied fix by Kai von Thadden for
+         tap's raise_error option and added test case.
 
 0.36  (2011/05/01)
     (ms) Added owner_cp() to copy uid and gid of a file or directory.

Modified: branches/upstream/libsysadm-install-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/META.yml?rev=76588&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/META.yml (original)
+++ branches/upstream/libsysadm-install-perl/current/META.yml Sun Jun 26 13:03:23 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Sysadm-Install
-version:            0.36
+version:            0.37
 abstract:           Typical installation tasks for system administrators
 author:
     - Mike Schilli <m at perlmeister.com>

Modified: branches/upstream/libsysadm-install-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/README?rev=76588&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/README (original)
+++ branches/upstream/libsysadm-install-perl/current/README Sun Jun 26 13:03:23 2011
@@ -1,5 +1,5 @@
 ######################################################################
-    Sysadm::Install 0.36
+    Sysadm::Install 0.37
 ######################################################################
 
 NAME

Modified: branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm?rev=76588&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm (original)
+++ branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm Sun Jun 26 13:03:23 2011
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.36';
+our $VERSION = '0.37';
 
 use File::Copy;
 use File::Path;
@@ -1020,7 +1020,7 @@
 
     my $exit_code = $?;
 
-    if($opts->{raise_error}) {
+    if($exit_code != 0 and $opts->{raise_error}) {
         LOGCROAK("tap $cmd | failed ($!)");
     }
 

Modified: branches/upstream/libsysadm-install-perl/current/t/012tap.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/t/012tap.t?rev=76588&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/t/012tap.t (original)
+++ branches/upstream/libsysadm-install-perl/current/t/012tap.t Sun Jun 26 13:03:23 2011
@@ -2,7 +2,7 @@
 # Tests for Sysadm::Install
 #####################################
 
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 use Sysadm::Install qw(:all);
 
@@ -10,4 +10,7 @@
   skip "echo not supported on Win32", 1 if $^O eq "MSWin32";
   my($stdout, $stderr, $rc) = tap "echo", "'";
   is($stdout, "'\n", "single quoted tap");
+
+  ($stdout, $stderr, $rc) = tap { raise_error => 1 }, "echo";
+  is($rc, 0, "tap and raise");
 }