From: doogie <>
Date: Sun, 30 Apr 2000 17:12:46 +0000 (-0800)
Subject: [project @ 2000-04-30 10:12:46 by doogie]
X-Git-Tag: release/2.6.0~1301
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=024016d5d715c17a88f4ad970e17b11bedd639ed;p=debbugs.git

[project @ 2000-04-30 10:12:46 by doogie]
Import File::Basename, and call NameToPathHash, instead of Number2Path.
---

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index c0169acb..3c837476 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' };