- Timestamp:
- 2009-03-11T13:12:31+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r18469 r18657 1056 1056 } 1057 1057 1058 # makes sure that the file has a gdb extension 1059 sub rename_gdbm_file { 1060 my ($filename_no_ext) = @_; 1061 1062 my $new_filename = "$filename_no_ext.gdb"; 1063 return if (-f $new_filename); # if gdb file exists, don't need to do anything 1064 # try ldb 1065 my $old_filename = "$filename_no_ext.ldb"; 1066 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 } 1073 return; 1074 } 1075 # try bdb 1076 $old_filename = "$filename_no_ext.bdb"; 1077 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"; 1084 } 1085 1086 1087 1058 1088 1;
Note:
See TracChangeset
for help on using the changeset viewer.