Changeset 18326

Show
Ignore:
Timestamp:
07.01.2009 16:55:52 (10 years ago)
Author:
ak19
Message:

Minor change for Windows. Now finished Windows testing of the recently added option of switching between renaming files using base64 and URL encodings.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r18319 r18326  
    10161016    $tailname =~ s/\s*//sg;      # for some reason it adds spaces not just at end but also in middle 
    10171017    } 
    1018          
     1018 
    10191019    $filename = "$tailname$suffix"; 
    1020     $filename = "$dirname$filename" if ($dirname ne "./"); 
     1020    $filename = "$dirname$filename" if ($dirname ne "./" && $dirname ne ".\\"); 
    10211021 
    10221022    return $filename;