aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Scherer <misc@mageia.org>2011-04-15 10:29:55 +0000
committerMichael Scherer <misc@mageia.org>2011-04-15 10:29:55 +0000
commit5c7f0a0a0550e8428b14db5c73261fcc7769287c (patch)
treecb1236558497903296cbcac86f5876286edf50c4
parent636361d732684407a0790335a4de93e9ff593e02 (diff)
downloadiurt-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-xemi4
1 files changed, 2 insertions, 2 deletions
diff --git a/emi b/emi
index 9399f9d..11639e6 100755
--- a/emi
+++ b/emi
@@ -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 ($!)");