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.6, 2006/02/10 17:01:18
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 162 sub split_file_path {	Line 162 sub split_file_path {
sub sstrip {	sub sstrip {
my ($name) = @_;	my ($name) = @_;

if ($name =~ /\s(.)\s*/) {	if ($name =~ /^\s(.?)\s*$/) {
return $1;	return $1;
}	}
return $name;	return $name;