r35818 - in /branches/upstream/libsysadm-install-perl/current: Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL README lib/Sysadm/Install.pm t/007fs.t t/013download.t

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Tue May 19 05:44:14 UTC 2009


Author: ryan52-guest
Date: Tue May 19 05:44:09 2009
New Revision: 35818

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

Added:
    branches/upstream/libsysadm-install-perl/current/t/013download.t
Modified:
    branches/upstream/libsysadm-install-perl/current/Changes
    branches/upstream/libsysadm-install-perl/current/MANIFEST
    branches/upstream/libsysadm-install-perl/current/MANIFEST.SKIP
    branches/upstream/libsysadm-install-perl/current/META.yml
    branches/upstream/libsysadm-install-perl/current/Makefile.PL
    branches/upstream/libsysadm-install-perl/current/README
    branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm
    branches/upstream/libsysadm-install-perl/current/t/007fs.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=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/Changes (original)
+++ branches/upstream/libsysadm-install-perl/current/Changes Tue May 19 05:44:09 2009
@@ -1,6 +1,12 @@
 ########################################
 Revision history for Sysadm::Install
 ########################################
+
+0.28 2009/05/11
+    (ms) Skipping fs_read_open test case if there's no cpio on 
+         the target system (reported for armv5tejl-linux).
+    (ms) Fixed download() with a better check for getstore(), 
+         suggested by Bernhard Minks.
 
 0.27 2008/03/26
     (ms) Fixes a broken CPAN upload.

Modified: branches/upstream/libsysadm-install-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/MANIFEST?rev=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/MANIFEST (original)
+++ branches/upstream/libsysadm-install-perl/current/MANIFEST Tue May 19 05:44:09 2009
@@ -7,9 +7,8 @@
 eg/untar_in
 lib/Sysadm/Install.pm
 Makefile.PL
-MANIFEST
+MANIFEST			This list of files
 MANIFEST.SKIP
-META.yml			Module meta-data (added by MakeMaker)
 README
 t/001.t
 t/002tar.t
@@ -23,5 +22,7 @@
 t/010carp.t
 t/011defor.t
 t/012tap.t
+t/013download.t
 t/canned/test.tar
 t/canned/testa.tar
+META.yml                                 Module meta-data (added by MakeMaker)

Modified: branches/upstream/libsysadm-install-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/MANIFEST.SKIP?rev=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libsysadm-install-perl/current/MANIFEST.SKIP Tue May 19 05:44:09 2009
@@ -3,9 +3,6 @@
 ^Makefile.old$
 CVS
 .cvsignore
-docs
 MANIFEST.bak
-adm/release
-^SpiderMonkey.bs$
-^SpiderMonkey.c$
-^SpiderMonkey.o$
+^adm
+.git

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=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/META.yml (original)
+++ branches/upstream/libsysadm-install-perl/current/META.yml Tue May 19 05:44:09 2009
@@ -1,18 +1,31 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Sysadm-Install
-version:      0.27
-version_from: lib/Sysadm/Install.pm
-installdirs:  site
+--- #YAML:1.0
+name:               Sysadm-Install
+version:            0.28
+abstract:           Typical installation tasks for system administrators
+author:
+    - Mike Schilli <m at perlmeister.com>
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
 requires:
-    Cwd:                           0
-    File::Basename:                0
-    File::Copy:                    0
-    File::Path:                    0
-    File::Temp:                    0.16
-    Log::Log4perl:                 1
-    LWP::Simple:                   0
-    Term::ReadKey:                 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+    Cwd:             0
+    File::Basename:  0
+    File::Copy:      0
+    File::Path:      0
+    File::Temp:      0.16
+    Log::Log4perl:   1
+    LWP::Simple:     0
+    Term::ReadKey:   0
+resources:
+    repository:  http://github.com/mschilli/sysadm-install-perl
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.50
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libsysadm-install-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/Makefile.PL?rev=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/Makefile.PL (original)
+++ branches/upstream/libsysadm-install-perl/current/Makefile.PL Tue May 19 05:44:09 2009
@@ -41,6 +41,11 @@
         Cwd             => 0,
         File::Temp      => 0.16,
                          }, # e.g., Module::Name => 1.1
+    META_MERGE          => {
+        resources       => {
+            repository  => 'http://github.com/mschilli/sysadm-install-perl',
+        },
+    },
     ($] >= 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: branches/upstream/libsysadm-install-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/README?rev=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/README (original)
+++ branches/upstream/libsysadm-install-perl/current/README Tue May 19 05:44:09 2009
@@ -1,5 +1,5 @@
 ######################################################################
-    Sysadm::Install 0.27
+    Sysadm::Install 0.28
 ######################################################################
 
 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=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm (original)
+++ branches/upstream/libsysadm-install-perl/current/lib/Sysadm/Install.pm Tue May 19 05:44:09 2009
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.27';
+our $VERSION = '0.28';
 
 use File::Copy;
 use File::Path;
@@ -236,15 +236,21 @@
 ###############################################
 sub download {
 ###############################################
-
-    local($Log::Log4perl::caller_depth) += 1;
-
-    INFO "download $_[0]";
-
-    _confirm("Downloading $_[0] => ", basename($_[0])) or return 1;
-
-    getstore($_[0], basename($_[0])) or 
+    my($url) = @_;
+
+    local($Log::Log4perl::caller_depth) += 1;
+
+    INFO "download $url";
+
+    _confirm("Downloading $url => ", basename($url)) or return 1;
+
+    my $rc = getstore($url, basename($_[0]));
+    
+    if($rc != RC_OK) {
         get_logger("")->logcroak("Cannot download $_[0] ($!)");
+    }
+
+    return 1;
 }
 
 =pod

Modified: branches/upstream/libsysadm-install-perl/current/t/007fs.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/t/007fs.t?rev=35818&op=diff
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/t/007fs.t (original)
+++ branches/upstream/libsysadm-install-perl/current/t/007fs.t Tue May 19 05:44:09 2009
@@ -17,18 +17,22 @@
 
 ok(1, "loading ok");
 
-rmf "$TEST_DIR/tmp";
+SKIP: {
 
-my $read = fs_read_open("$TEST_DIR");
-my $cpio = join '', <$read>;
-close $read;
+    rmf "$TEST_DIR/tmp";
+    if(!bin_find("cpio")) {
+        skip "No cpio on this system", 1;
+    }
 
-#print "Length: ", length $cpio, "\n";
+    my $read = fs_read_open("$TEST_DIR");
+    my $cpio = join '', <$read>;
+    close $read;
 
-my $write = fs_write_open("$TEST_DIR/tmp");
-print $write $cpio;
-close $write;
+    my $write = fs_write_open("$TEST_DIR/tmp");
+    print $write $cpio;
+    close $write;
 
-ok(-f "$TEST_DIR/007fs.t", "cpio worked");
+    ok(-f "$TEST_DIR/007fs.t", "cpio worked");
 
-rmf "$TEST_DIR/tmp";
+    rmf "$TEST_DIR/tmp";
+}

Added: branches/upstream/libsysadm-install-perl/current/t/013download.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsysadm-install-perl/current/t/013download.t?rev=35818&op=file
==============================================================================
--- branches/upstream/libsysadm-install-perl/current/t/013download.t (added)
+++ branches/upstream/libsysadm-install-perl/current/t/013download.t Tue May 19 05:44:09 2009
@@ -1,0 +1,12 @@
+#####################################
+# Tests for Sysadm::Install
+#####################################
+
+use Test::More tests => 1;
+use Sysadm::Install qw(:all);
+
+eval {
+   download "file:///very/unlikely/that/this/file/exists";
+};
+
+ok $@, "download of non-existent file";




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