[project @ 2000-05-01 09:27:20 by doogie]

Fix unitialized value warning.

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index 1fda1eec8c112e033e47031e96de042411efff00..10c4a1d5a16dc204005e418b0128ce2fcda232e8 100644 (file)
--- a/Debbugs/DBase.pm
+++ b/Debbugs/DBase.pm
@@ -126,7 +126,7 @@ sub OpenFile
            }
        }
        open( $handle, $Globals{ "work-dir" } . $path ) && return $handle;
-       if($new =~ "new") {
+       if(defined($new) && $new =~ "new") {
            my $dir = dirname( $path );
            if ( ! -d $Globals{ "work-dir" } . $dir ) {
                mkpath($Globals{ "work-dir" } . $dir);