diff options
author | Michael Scherer <misc@mageia.org> | 2011-04-15 10:29:55 +0000 |
---|---|---|
committer | Michael Scherer <misc@mageia.org> | 2011-04-15 10:29:55 +0000 |
commit | 5c7f0a0a0550e8428b14db5c73261fcc7769287c (patch) | |
tree | cb1236558497903296cbcac86f5876286edf50c4 | |
parent | 636361d732684407a0790335a4de93e9ff593e02 (diff) | |
download | iurt-5c7f0a0a0550e8428b14db5c73261fcc7769287c.tar iurt-5c7f0a0a0550e8428b14db5c73261fcc7769287c.tar.gz iurt-5c7f0a0a0550e8428b14db5c73261fcc7769287c.tar.bz2 iurt-5c7f0a0a0550e8428b14db5c73261fcc7769287c.tar.xz iurt-5c7f0a0a0550e8428b14db5c73261fcc7769287c.zip |
- use a more standard module, to reduce code we have to maintain
-rwxr-xr-x | emi | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -28,7 +28,7 @@ # PREFIX : sprintf "$year%02d%02d%02d%02d%02d.$user.$host.${$}_", $mon, $mday, $hour, $min, $sec; use strict; -use MDK::Common; +use File::Path qw(make_path); use Iurt::Config qw(config_usage config_init get_author_email); use Iurt::Process qw(check_pid); use Iurt::Mail qw(sendmail); @@ -272,7 +272,7 @@ sub upload_prefix { } else { # should send a mail or something plog('ERR', "upload failed ($!), rejecting files in $reject/$path/"); - mkdir_p("$reject/$path"); + make_path("$reject/$path"); foreach my $rpm (@{$pkg_tree{$prefix}{rpms}}) { link "$done/$path/${prefix}_$rpm", "$reject/$path/${prefix}_$rpm"; plog('ERR', "ERROR: link of $rpm failed ($!)"); |