wrong patch

[Hans Hagen <pragma@wxs.nl>]

Hi,

The previous post was wrong; I was playing with write tests recently and 
send an old fragment; the right one is:

sub RunFiles {
my $currentpath = cwd() ;
# test if current path is writable
if (! -w "$currentpath") {
     print " current path readonly : $currentpath\n";
     if ($ENV["TEMP"] && -e $ENV["TEMP"]) {
         $RunPath = $ENV["TEMP"] ;
     } elsif ($ENV["TMP"] && -e $ENV["TMP"]) {
         $RunPath = $ENV["TMP"] ;
     }
}
# test if we need to change paths
if (($RunPath ne "") && (-w "$RunPath")) {
     print "      changing to path : $RunPath\n";
     $InpPath = $currentpath ;
     chdir ($RunPath) ;
}
# start working
     if ($PdfArrange) {


Hans


-------------------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE/POD/CTS
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------