r44009 - in /trunk/libsysadm-install-perl: Changes META.yml README debian/changelog debian/control lib/Sysadm/Install.pm t/013download.t
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Sun Sep 13 08:10:48 UTC 2009
Author: carnil-guest
Date: Sun Sep 13 08:10:41 2009
New Revision: 44009
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44009
Log:
* New upstream release
* Add myself to Uploaders
Modified:
trunk/libsysadm-install-perl/Changes
trunk/libsysadm-install-perl/META.yml
trunk/libsysadm-install-perl/README
trunk/libsysadm-install-perl/debian/changelog
trunk/libsysadm-install-perl/debian/control
trunk/libsysadm-install-perl/lib/Sysadm/Install.pm
trunk/libsysadm-install-perl/t/013download.t
Modified: trunk/libsysadm-install-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/Changes?rev=44009&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/Changes (original)
+++ trunk/libsysadm-install-perl/Changes Sun Sep 13 08:10:41 2009
@@ -1,6 +1,13 @@
########################################
Revision history for Sysadm::Install
########################################
+
+0.33 (2009/09/12)
+ (ms) utf8_available() now uses eval"" to check for Encode module,
+ Sysadm::Install therefore no longer requires Encode to be installed.
+ (ms) Got rid of LWP::Simple because of its env_proxy() call at
+ compile time, which freaks out on env variables like "use_proxy"
+ when set to numeric values. Using LWP::UserAgent instead.
0.32 2009/08/28
(ms) Made utf8 handling configurable instead of sneaky capability
Modified: trunk/libsysadm-install-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/META.yml?rev=44009&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/META.yml (original)
+++ trunk/libsysadm-install-perl/META.yml Sun Sep 13 08:10:41 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.32
-version_from: lib/Sysadm/Install.pm
-installdirs: site
+--- #YAML:1.0
+name: Sysadm-Install
+version: 0.33
+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.30_01
+ 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: trunk/libsysadm-install-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/README?rev=44009&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/README (original)
+++ trunk/libsysadm-install-perl/README Sun Sep 13 08:10:41 2009
@@ -1,5 +1,5 @@
######################################################################
- Sysadm::Install 0.32
+ Sysadm::Install 0.33
######################################################################
NAME
Modified: trunk/libsysadm-install-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/debian/changelog?rev=44009&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/debian/changelog (original)
+++ trunk/libsysadm-install-perl/debian/changelog Sun Sep 13 08:10:41 2009
@@ -1,8 +1,13 @@
-libsysadm-install-perl (0.32-2) UNRELEASED; urgency=low
+libsysadm-install-perl (0.33-1) UNRELEASED; urgency=low
+ [ Ryan Niebur ]
* Update jawnsy's email address
- -- Ryan Niebur <ryanryan52 at gmail.com> Tue, 01 Sep 2009 21:19:44 -0700
+ [ Salvatore Bonaccorso ]
+ * New upstream release
+ * Add myself to Uploaders
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Sun, 13 Sep 2009 10:07:42 +0200
libsysadm-install-perl (0.32-1) unstable; urgency=low
Modified: trunk/libsysadm-install-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/debian/control?rev=44009&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/debian/control (original)
+++ trunk/libsysadm-install-perl/debian/control Sun Sep 13 08:10:41 2009
@@ -7,7 +7,7 @@
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: gregor herrmann <gregoa at debian.org>,
Ryan Niebur <ryanryan52 at gmail.com>, Nathan Handler <nhandler at ubuntu.com>,
- Jonathan Yu <jawnsy at cpan.org>
+ Jonathan Yu <jawnsy at cpan.org>, Salvatore Bonaccorso <salvatore.bonaccorso 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/
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=44009&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/lib/Sysadm/Install.pm (original)
+++ trunk/libsysadm-install-perl/lib/Sysadm/Install.pm Sun Sep 13 08:10:41 2009
@@ -6,13 +6,12 @@
use strict;
use warnings;
-our $VERSION = '0.32';
+our $VERSION = '0.33';
use File::Copy;
use File::Path;
use Log::Log4perl qw(:easy);
use Log::Log4perl::Util;
-use LWP::Simple;
use File::Basename;
use File::Spec::Functions qw(rel2abs abs2rel);
use Cwd;
@@ -241,10 +240,19 @@
_confirm("Downloading $url => ", basename($url)) or return 1;
- my $rc = getstore($url, basename($_[0]));
+ require LWP::UserAgent;
+ require HTTP::Request;
+ require HTTP::Status;
+
+ my $ua = LWP::UserAgent->new();
+ my $request = HTTP::Request->new(GET => $url);
+ my $response = $ua->request($request, basename($_[0]));
+ my $rc = $response->code();
- if($rc != RC_OK) {
- LOGCROAK("Cannot download $_[0] ($!)");
+ if($rc != HTTP::Status::RC_OK()) {
+ LOGCROAK("Cannot download $_[0] (",
+ $response->message(),
+ ")");
}
return 1;
@@ -1660,9 +1668,7 @@
sub utf8_available {
###############################################
- eval {
- use Encode;
- };
+ eval "use Encode";
if($@) {
return 0;
Modified: trunk/libsysadm-install-perl/t/013download.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/t/013download.t?rev=44009&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/t/013download.t (original)
+++ trunk/libsysadm-install-perl/t/013download.t Sun Sep 13 08:10:41 2009
@@ -2,11 +2,28 @@
# Tests for Sysadm::Install
#####################################
-use Test::More tests => 1;
+use Test::More tests => 2;
use Sysadm::Install qw(:all);
+use File::Temp qw(tempdir);
eval {
download "file:///very/unlikely/that/this/file/exists";
};
ok $@, "download of non-existent file";
+
+my $var = "SI_ALL_TESTS";
+
+SKIP: {
+ if(! exists $ENV{ $var }) {
+ skip "only with $var set", 1;
+ }
+
+ $ENV{use_proxy} = 1;
+
+ my ($dir) = tempdir( CLEANUP => 1 );
+ cd $dir;
+ download "http://perlmeister.com/index.html";
+ ok(-s "index.html", "download ok");
+ cdback;
+};
More information about the Pkg-perl-cvs-commits
mailing list