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

_______________________________________________
ntg-context mailing list
[EMAIL PROTECTED]
http://www.ntg.nl/mailman/listinfo/ntg-context

Reply via email to