Changeset 41508 for trunk/tools/eam/rebalance/neb_check_trash.pl

Timestamp:

Feb 25, 2021, 4:33:46 PM (5 years ago)

Author:

eugene

Message:

updates to rebalance code

Location:

trunk/tools/eam/rebalance

Files:

• . (copied) (copied from trunk/tools/eam/rebalance )
• neb_check_trash.pl (modified) (1 diff)

trunk/tools/eam/rebalance/neb_check_trash.pl

@@ -54 +54 @@
 my $dbh = DBI->connect($dsn, $dbuser, $dbpass, { RaiseError => 1, AutoCommit => 1} ) or die "Unable to connect to database $DBI::errstr\n";
 
-unless (mkdir $savedir) { die "failed to make savedir\n"; }
+if (-e $savedir) {
+    unless (-d $savedir) { die "savedir $savedir exists but is not a directory\n"; }
+} else {
+    unless (mkdir $savedir) { die "failed to make savedir\n"; }
+}
 
 my @files = <${trashdir}/*>;