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