Changeset 1418
- Timestamp:
- 2000-08-17T14:19:26+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ConvertToBasPlug.pm
r1417 r1418 78 78 my $tmp_filename = &util::filename_cat($tmp_dirname,"$tailname$suffix"); 79 79 80 # Remove any white space from filename -- no risk of name collision, and 81 # makes latter conversion by utils simpler 82 $tmp_filename =~ s/\s+//g; 83 80 84 &util::soft_link($input_filename,$tmp_filename); 81 85 82 86 my $output_filename 83 87 = &util::filename_cat($tmp_dirname,"$tailname.$output_ext"); 88 $output_filename =~ s/\s+//g; 84 89 85 90 my $verbosity = $self->{'verbosity'};
Note:
See TracChangeset
for help on using the changeset viewer.