Changeset 19056 for gsdl/trunk/perllib/util.pm
- Timestamp:
- 2009-04-19T22:58:52+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r18913 r19056 1066 1066 1067 1067 if (-f $old_filename) { 1068 1069 rename ($old_filename, $new_filename); 1070 if (-f $old_filename) { 1071 print STDERR "old $old_filename still there\n"; 1072 } 1068 print STDERR "Renaming $old_filename to $new_filename\n"; 1069 rename ($old_filename, $new_filename) 1070 || print STDERR "Rename failed: $!\n"; 1073 1071 return; 1074 1072 } … … 1076 1074 $old_filename = "$filename_no_ext.bdb"; 1077 1075 if (-f $old_filename) { 1078 1079 rename ($old_filename, $new_filename); 1080 return; 1081 } 1082 1083 print STDERR "no $filename_no_ext.ldb/bdb file to rename\n"; 1076 print STDERR "Renaming $old_filename to $new_filename\n"; 1077 rename ($old_filename, $new_filename) 1078 || print STDERR "Rename failed: $!\n"; 1079 return; 1080 } 1084 1081 } 1085 1082
Note:
See TracChangeset
for help on using the changeset viewer.