From e71405abbaa7032434a5c114a4a92ff8896e1bdb Mon Sep 17 00:00:00 2001
From: Deepti Kulkarni <deepti@vyatta.com>
Date: Wed, 29 Feb 2012 06:14:18 -0800
Subject: bug fix for 7826 - fixed to use correct perl functions.

---
 scripts/rename-image.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/rename-image.pl b/scripts/rename-image.pl
index be30967..6f3084c 100644
--- a/scripts/rename-image.pl
+++ b/scripts/rename-image.pl
@@ -119,10 +119,10 @@ while ($line = <$grubfh>) {
 close($tmpfh);
 close($grubfh);
 
-mv("$image_path/$old_name", "$image_path/$new_name")
+move("$image_path/$old_name", "$image_path/$new_name")
     or die "rename $old_name to $new_name failed: $!\n";
 
-cp($tmpfilename, "$image_path/grub/grub.cfg")
+copy($tmpfilename, "$image_path/grub/grub.cfg")
     or die "copy $tmpfilename to grub.cfg failed: $!\n";
 
 syslog("warning", "System image $old_name has been renamed $new_name");
-- 
cgit v1.2.3