Changeset 19056 for gsdl/trunk/perllib/util.pm

Timestamp:

2009-04-19T22:58:52+12:00 (15 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:

• gsdl/trunk/perllib/util.pm (modified) (2 diffs)

gsdl/trunk/perllib/util.pm

@@ -1066 +1066 @@
     
     if (-f $old_filename) {
-    
-    rename ($old_filename, $new_filename);
-    if (-f $old_filename) {
-        print STDERR "old $old_filename still there\n";
-    }
+    print STDERR "Renaming $old_filename to $new_filename\n";
+    rename ($old_filename, $new_filename)
+        || print STDERR "Rename failed: $!\n";
     return;
     }
@@ -1076 +1074 @@
     $old_filename = "$filename_no_ext.bdb";
     if (-f $old_filename) {
-    
-    rename ($old_filename, $new_filename);
-    return;
-    }
-
-    print STDERR "no $filename_no_ext.ldb/bdb file to rename\n";
+    print STDERR "Renaming $old_filename to $new_filename\n";   
+    rename ($old_filename, $new_filename)
+        || print STDERR "Rename failed: $!\n";
+    return;
+    }
 }