Changeset 19056

Show
Ignore:
Timestamp:
19.04.2009 22:58:52 (11 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

Files:
1 modified

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