SVN: vfmg/trunk/VFMG/Icons.pm

[sparky]

Author: sparky
Date: Fri Jan 19 21:25:44 2007
New Revision: 8178

Modified:
   vfmg/trunk/VFMG/Icons.pm
Log:
- small cleanup


Modified: vfmg/trunk/VFMG/Icons.pm
==============================================================================
--- vfmg/trunk/VFMG/Icons.pm	(original)
+++ vfmg/trunk/VFMG/Icons.pm	Fri Jan 19 21:25:44 2007
@@ -160,11 +160,12 @@
 	warn "Need to (re)generate all icons.\n";
 	require File::Path;
 	import File::Path qw(mkpath rmtree);
-	rmtree($main::opt{icons_dir}.".old",0,0)
-		if -e $main::opt{icons_dir}.".old";
-	rename($main::opt{icons_dir},$main::opt{icons_dir}.".old")
+	my $icons_dir_old = $main::opt{icons_dir} . ".old";
+	rmtree( $icons_dir_old, 0, 0 )
+		if -e $icons_dir_old;
+	rename( $main::opt{icons_dir}, $icons_dir_old )
 		if -e $main::opt{icons_dir};
-	mkpath($main::opt{icons_dir},0,0700);
+	mkpath( $main::opt{icons_dir}, 0, 0700 );
 }
 
 sub finish {