Fix unitialized value warning.
}
}
open( $handle, $Globals{ "work-dir" } . $path ) && return $handle;
}
}
open( $handle, $Globals{ "work-dir" } . $path ) && return $handle;
+ if(defined($new) && $new =~ "new") {
my $dir = dirname( $path );
if ( ! -d $Globals{ "work-dir" } . $dir ) {
mkpath($Globals{ "work-dir" } . $dir);
my $dir = dirname( $path );
if ( ! -d $Globals{ "work-dir" } . $dir ) {
mkpath($Globals{ "work-dir" } . $dir);