Re: [NTG-context] error messages after installation

22 Nov 2004


      Taco Hoekwater wrote:
...
I believe it is possible that this code
...
if ($UseEnginePath && ($FormatPath ne '' && ($FormatPath !~  /$EnginePath\/$/))) {
        $FormatPath .= $EnginePath . '/' ;
        unless (-d $FormatPath) {
            mkdir $FormatPath ;
        }
    }
breaks in perl versions < 5.8.0 because of the trailing slash in the mkdir call.
It would be great if someone could verify if
mkdir "test/" ;
actually fails in 5.004/5.005/5.6.x (perl58delta seems to hint at that).
If so, then probably changing the second line to read:
$FormatPath .= $EnginePath ;
will fix the bug.
ah, thanks for looking into it, i changed the code to:

     if ($UseEnginePath && ($FormatPath ne '' && ($FormatPath !~ 
/$EnginePath\/$/))) {
         $FormatPath .= $EnginePath ;
         unless (-d $FormatPath) {
             mkdir $FormatPath ;
         }
         $FormatPath .= '/' ;
     }


-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
      tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------