From: doogie <>
Date: Mon, 1 May 2000 16:27:20 +0000 (-0800)
Subject: [project @ 2000-05-01 09:27:20 by doogie]
X-Git-Tag: release/2.6.0~1290
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=91658fa04bda2a11bff36b191acd22ab0d62d8ef;p=debbugs.git

[project @ 2000-05-01 09:27:20 by doogie]
Fix unitialized value warning.
---

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index 1fda1eec..10c4a1d5 100644
--- 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);