Re: error messages after installation

[Hans Hagen <pragma@wxs.nl>]

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
-----------------------------------------------------------------