foxridge-archiver/MPIWGStor.pm - diff

Return to MPIWGStor.pm CVS log

Up to [Repository] / foxridge-archiver

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