Ignore:
Timestamp:
2009-04-19T22:58:52+12:00 (12 years ago)
Author:
davidb
Message:

Changed printing of details to be for when a ldb/bdb rename is needed, rather than when it is not

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r18913 r19056  
    10661066   
    10671067    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";
    10731071    return;
    10741072    }
     
    10761074    $old_filename = "$filename_no_ext.bdb";
    10771075    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    }
    10841081}
    10851082
Note: See TracChangeset for help on using the changeset viewer.