version 1.3, 2005/05/26 14:31:28
|
version 1.4, 2005/08/23 15:01:08
|
Line 12 use vars qw(@ISA @EXPORT $VERSION
|
Line 12 use vars qw(@ISA @EXPORT $VERSION
|
$file_perm); |
$file_perm); |
use Exporter; |
use Exporter; |
|
|
$VERSION = 0.6; # ROC 26.5.2005 |
$VERSION = 0.6.1; # ROC 8.8.2005 |
|
|
@ISA = qw(Exporter); |
@ISA = qw(Exporter); |
|
|
Line 145 sub split_file_path {
|
Line 145 sub split_file_path {
|
if ($fn =~ /^(.*)\/([^\/]+)$/) { |
if ($fn =~ /^(.*)\/([^\/]+)$/) { |
return ($2, $1); |
return ($2, $1); |
} |
} |
return $fn; |
return ($fn, '.'); # only file name |
} |
} |
|
|
|
|