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