From 024016d5d715c17a88f4ad970e17b11bedd639ed Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Sun, 30 Apr 2000 09:12:46 -0800
Subject: [PATCH] [project @ 2000-04-30 10:12:46 by doogie] Import
 File::Basename, and call NameToPathHash, instead of Number2Path.

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

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index c0169ac..3c83747 100644
--- a/Debbugs/DBase.pm
+++ b/Debbugs/DBase.pm
@@ -27,6 +27,7 @@ use Debbugs::Config;
 use Debbugs::Email;
 use Debbugs::Common;
 use FileHandle;
+use File::Basename qw(&basename);
 
 %Record = ();
 
@@ -117,7 +118,7 @@ sub OpenFile
     print "D2: (DBase) $path found as data path\n" if $Globals{ 'debug' } > 1;
     if( ! -r $Globals{ "work-dir" } . $path ) {
 	my $dir;
-	$path = $prePath.Number2Path($stub).$postPath;
+	$path = $prePath. &NameToPathHash($stub) .$postPath;
 	$dir = basename($path);
 	if( ! -d $Globals{ "work-dir" } . $dir ) {
 	    print "D1 (DBase) making dir $dir\n" if $Globals{ 'debug' };
-- 
2.39.2