foxridge-archiver/MPIWGStor.pm - diff

Return to MPIWGStor.pm CVS log

Up to [Repository] / foxridge-archiver

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;
}	}