version 1.5, 2005/09/20 17:24:57
|
version 1.7, 2006/06/12 17:01:39
|
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.1; # ROC 8.8.2005 |
$VERSION = 0.6.2; # ROC 10.2.2006 |
|
|
@ISA = qw(Exporter); |
@ISA = qw(Exporter); |
|
|
Line 155 sub split_file_path {
|
Line 155 sub split_file_path {
|
|
|
|
|
# |
# |
# $name = sstrip($name) |
# $name = sstrip($name, $slash) |
# |
# |
# strips leading and trailing whitespace from $name |
# strips leading and trailing whitespace from $name |
|
# replaces double slashes with single ones with $slash. |
# |
# |
sub sstrip { |
sub sstrip { |
my ($name) = @_; |
my ($name, $slash) = @_; |
|
|
if ($name =~ /\s*(.*)\s*/) { |
if ($name =~ /^\s*(.*?)\s*$/) { |
return $1; |
$name = $1; |
|
} |
|
if ($slash) { |
|
# trim multiple slashes |
|
$name =~ s/\/+/\//g; |
} |
} |
return $name; |
return $name; |
} |
} |