r52275 - /trunk/libperl-apireference-perl/debian/regenerate.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sun Feb 7 14:15:07 UTC 2010
Author: dmn
Date: Sun Feb 7 14:14:51 2010
New Revision: 52275
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52275
Log:
replace system("mv...") with File::Copy::move
Modified:
trunk/libperl-apireference-perl/debian/regenerate.pl
Modified: trunk/libperl-apireference-perl/debian/regenerate.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-apireference-perl/debian/regenerate.pl?rev=52275&op=diff
==============================================================================
--- trunk/libperl-apireference-perl/debian/regenerate.pl (original)
+++ trunk/libperl-apireference-perl/debian/regenerate.pl Sun Feb 7 14:14:51 2010
@@ -3,6 +3,7 @@
use lib 'lib';
use Perl::APIReference;
use Perl::APIReference::Generator;
+use File::Copy qw(move);
use strict;
use warnings;
@@ -49,5 +50,5 @@
my $generated = "$target";
$generated =~ s/.*\///g;
my_system("perl", "-I", "lib", "./author_scripts/generate.pl", $data, $perl_ver);
- my_system("mv", $generated, $target);
+ move($generated, $target) or die "Error while moving $generated to $target: $!\n";
}
More information about the Pkg-perl-cvs-commits
mailing list