Factor some system()s

1 files changed, 11 insertions, 1 deletions

diff --git a/urpm/util.pm b/urpm/util.pm
index eb2fc912..8abb816e 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -75,7 +75,17 @@ sub offset_pathname {
 sub md5sum {
     #- Use an external command to avoid depending on perl
     my ($file) = @_;
-    return( (split ' ', `md5sum '$file'`)[0] );
+    return((split ' ', `md5sum '$file'`)[0]);
+}
+
+sub copy {
+    my ($file, $dest) = @_;
+    !system("/bin/cp", "-p", "-R", $file, $dest);
+}
+
+sub move {
+    my ($file, $dest) = @_;
+    rename($file, $dest) or !system("/bin/mv", "-f", $file, $dest);
 }
 
 1;