[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 c0169acb36cfbe4991d807161fbd6b2d00c78d5d..3c83747624a250fbfa3538f3921c4b8517ce4ad9 100644 (file)
--- 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' };