From 91658fa04bda2a11bff36b191acd22ab0d62d8ef Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Mon, 1 May 2000 08:27:20 -0800
Subject: [PATCH] [project @ 2000-05-01 09:27:20 by doogie] Fix unitialized
 value warning.

---
 Debbugs/DBase.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.39.5