r56111 - in /trunk/libsysadm-install-perl: Changes MANIFEST META.yml Makefile.PL README debian/changelog lib/Sysadm/Install.pm t/015caller_level.t t/016printable.t
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Thu Apr 15 06:35:30 UTC 2010
Author: carnil-guest
Date: Thu Apr 15 06:35:14 2010
New Revision: 56111
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56111
Log:
New upstream release
Added:
trunk/libsysadm-install-perl/t/015caller_level.t
- copied unchanged from r56110, branches/upstream/libsysadm-install-perl/current/t/015caller_level.t
trunk/libsysadm-install-perl/t/016printable.t
- copied unchanged from r56110, branches/upstream/libsysadm-install-perl/current/t/016printable.t
Modified:
trunk/libsysadm-install-perl/Changes
trunk/libsysadm-install-perl/MANIFEST
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/lib/Sysadm/Install.pm
Modified: trunk/libsysadm-install-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/Changes?rev=56111&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/Changes (original)
+++ trunk/libsysadm-install-perl/Changes Thu Apr 15 06:35:14 2010
@@ -1,6 +1,12 @@
########################################
Revision history for Sysadm::Install
########################################
+
+0.35 (2010/04/13)
+ (ms) [RT 54885] Merged with github fork by Thomas Lenz, fixing
+ blurt_atomic on Win32.
+ (ms) Fixed local caller_depth increments
+ (ms) Fixed printable() bug masking '-'.
0.34 (2010/02/21)
(ms) Added github repository link to Makefile.PL
Modified: trunk/libsysadm-install-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/MANIFEST?rev=56111&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/MANIFEST (original)
+++ trunk/libsysadm-install-perl/MANIFEST Thu Apr 15 06:35:14 2010
@@ -24,6 +24,8 @@
t/012tap.t
t/013download.t
t/014utf8.t
+t/015caller_level.t
+t/016printable.t
t/canned/test.tar
t/canned/testa.tar
t/canned/utf8.txt
Modified: trunk/libsysadm-install-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/META.yml?rev=56111&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/META.yml (original)
+++ trunk/libsysadm-install-perl/META.yml Thu Apr 15 06:35:14 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Sysadm-Install
-version: 0.34
+version: 0.35
abstract: Typical installation tasks for system administrators
author:
- Mike Schilli <m at perlmeister.com>
@@ -16,7 +16,7 @@
File::Copy: 0
File::Path: 0
File::Temp: 0.16
- Log::Log4perl: 1
+ Log::Log4perl: 1.28
LWP::Simple: 0
Term::ReadKey: 0
resources:
Modified: trunk/libsysadm-install-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/Makefile.PL?rev=56111&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/Makefile.PL (original)
+++ trunk/libsysadm-install-perl/Makefile.PL Thu Apr 15 06:35:14 2010
@@ -40,7 +40,7 @@
VERSION_FROM => 'lib/Sysadm/Install.pm', # finds $VERSION
EXE_FILES => ['eg/one-liner' ],
PREREQ_PM => {
- Log::Log4perl => 1.00,
+ Log::Log4perl => 1.28,
File::Copy => 0,
File::Path => 0,
File::Basename => 0,
Modified: trunk/libsysadm-install-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/README?rev=56111&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/README (original)
+++ trunk/libsysadm-install-perl/README Thu Apr 15 06:35:14 2010
@@ -1,5 +1,5 @@
######################################################################
- Sysadm::Install 0.34
+ Sysadm::Install 0.35
######################################################################
NAME
Modified: trunk/libsysadm-install-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsysadm-install-perl/debian/changelog?rev=56111&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/debian/changelog (original)
+++ trunk/libsysadm-install-perl/debian/changelog Thu Apr 15 06:35:14 2010
@@ -1,14 +1,15 @@
-libsysadm-install-perl (0.34-1) UNRELEASED; urgency=low
+libsysadm-install-perl (0.35-1) UNRELEASED; urgency=low
- IGNORE-VERSION: 0.34-1
- + Changes only affect windows plateforms
-
+ [ Angel Abad ]
* New upstream release
* Add myself to uploaders
* Standards-Version: 3.8.4 (no changes needed)
* Add spelling_errors.patch to fix spelling error in manpage
- -- Angel Abad <angelabad at gmail.com> Mon, 22 Feb 2010 18:19:15 +0100
+ [ Salvatore Bonaccorso ]
+ * New upstream release
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Thu, 15 Apr 2010 08:34:11 +0200
libsysadm-install-perl (0.33-2) unstable; urgency=low
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=56111&op=diff
==============================================================================
--- trunk/libsysadm-install-perl/lib/Sysadm/Install.pm (original)
+++ trunk/libsysadm-install-perl/lib/Sysadm/Install.pm Thu Apr 15 06:35:14 2010
@@ -6,7 +6,7 @@
use strict;
use warnings;
-our $VERSION = '0.34';
+our $VERSION = '0.35';
use File::Copy;
use File::Path;
@@ -84,6 +84,7 @@
snip password_read nice_time
def_or blurt_atomic
is_utf8_data utf8_available
+printable
);
our %EXPORTABLE = map { $_ => 1 } @EXPORTABLE;
@@ -188,7 +189,8 @@
sub cp {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm("cp $_[0] $_[1]") or return 1;
@@ -210,7 +212,8 @@
sub mv {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm("mv $_[0] $_[1]") or return 1;
@@ -234,7 +237,8 @@
###############################################
my($url) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
INFO "download $url";
@@ -279,7 +283,9 @@
###############################################
sub untar {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
LOGCROAK("untar called without defined tarfile") unless
@_ == 1 and defined $_[0];
@@ -332,7 +338,8 @@
###############################################
my($tar_file, $dir) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
LOGCROAK("not enough arguments") if
! defined $tar_file or ! defined $dir;
@@ -386,7 +393,8 @@
##################################################
my ($prompt, $options, $default) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
my $default_int;
my %files;
@@ -432,7 +440,8 @@
##################################################
my ($prompt, $default) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
if(@_ != 2) {
LOGCROAK("ask() called with wrong # of args");
@@ -461,7 +470,8 @@
sub mkd {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "mkd @_" or return 1;
@@ -484,7 +494,8 @@
sub rmf {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "rmf $_[0]" or return 1;
@@ -515,7 +526,9 @@
sub cd {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
+
INFO "cd $_[0]";
my $opts = { stack_update => 1 };
@@ -545,7 +558,8 @@
sub cdback {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
LOGCROAK("cd stack empty") unless @DIR_STACK;
@@ -570,7 +584,8 @@
sub make {
###############################################
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "make @_" or return 1;
@@ -602,7 +617,8 @@
#######################################
my($name) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
DEBUG "Sniffing archive '$name'";
@@ -678,7 +694,8 @@
$options = pop @files;
}
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
for my $file (@files) {
@@ -735,7 +752,8 @@
$options = pop @files;
}
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
for my $file (@files) {
@@ -779,7 +797,8 @@
$options = {} unless defined $options;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
my $from_file = defined($file);
@@ -832,7 +851,8 @@
$options = {} unless defined $options;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
$options->{append} = 0 unless defined $options->{append};
@@ -887,6 +907,8 @@
blurt($data, $tmpname, $options);
+ close $fh;
+
rename $tmpname, $file or
LOGDIE "Can't rename $tmpname to $file";
@@ -948,7 +970,8 @@
$options = pop @args;
}
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "tapping @args" or return 1;
@@ -1161,7 +1184,8 @@
# Lifted from Ben Okopnik's
# http://www.linuxgazette.com/issue87/misc/tips/cpmod.pl.txt
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "perm_cp @_" or return 1;
@@ -1186,7 +1210,8 @@
######################################
my($filename) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
my @stats = (stat $filename)[2,4,5] or
@@ -1212,7 +1237,8 @@
######################################
my($filename, $perms) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "perm_set $filename (@$perms)" or return 1;
@@ -1239,7 +1265,8 @@
######################################
my(@cmds) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "sysrun: @cmds" or return 1;
@@ -1265,7 +1292,8 @@
require Expect;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "Hammer: @cmds" or return 1;
@@ -1313,7 +1341,8 @@
######################################
my($argv) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
_confirm "sudo_me" or return 1;
@@ -1377,7 +1406,8 @@
$options = {} unless defined $options;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
my $find = bin_find("find");
LOGCROAK("Cannot find 'find'") unless defined $find;
@@ -1420,7 +1450,8 @@
$options = {} unless defined $options;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
my $cpio = bin_find("cpio");
LOGCROAK("Cannot find 'cpio'") unless defined $cpio;
@@ -1456,7 +1487,8 @@
######################################
my($in, $out, $bufsize) = @_;
- local($Log::Log4perl::caller_depth) += 1;
+ local $Log::Log4perl::caller_depth =
+ $Log::Log4perl::caller_depth + 1;
$bufsize ||= 4096;
my $bytes = 0;
@@ -1526,7 +1558,7 @@
###########################################
my($data) = @_;
- $data =~ s/[^ \w.;!?@#$%^&*()+\\|~`'-,><[\]{}="]/./g;
+ $data =~ s/[^ \w.;!?@#$%^&*()+\\|~`',><[\]{}="-]/./g;
return $data;
}
More information about the Pkg-perl-cvs-commits
mailing list