- Timestamp:
- 2009-01-07T18:46:48+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r18326 r18329 999 999 sub rename_file { 1000 1000 my ($filename, $rename_method) = @_; 1001 1001 1002 if(!$filename) { # for example, empty string 1003 return $filename; 1004 } 1005 1002 1006 my ($tailname,$dirname,$suffix) = File::Basename::fileparse($filename, "\\.[^\\.]+\$"); 1003 1007
Note:
See TracChangeset
for help on using the changeset viewer.