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 {
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
