Changeset 19266
- Timestamp:
- 2009-04-27T11:30:53+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/inexport.pm
r19049 r19266 276 276 my $collectdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}); 277 277 278 $existing_file =~ s/^$collectdir(\\|\/)?//; 278 my $collectdir_resafe = &util::filename_to_regex($collectdir); 279 $existing_file =~ s/^$collectdir_resafe(\\|\/)?//; 279 280 280 281 ### print STDERR "**** Deleting existing file: $existing_file\n";
Note:
See TracChangeset
for help on using the changeset viewer.