Mercurial > hg > foxridge-archiver

diff MPIWGStor.pm @ 27:2890dd75d2f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed bug in sstrip with whitespace at the end of the string...
author casties
date Fri, 10 Feb 2006 18:01:18 +0100
parents fdf4ceb36db1
children 398ef4b8f072
line wrap: on
line diff
--- a/MPIWGStor.pm	Wed Dec 07 18:31:04 2005 +0100
+++ b/MPIWGStor.pm	Fri Feb 10 18:01:18 2006 +0100
@@ -12,7 +12,7 @@
 	    $file_perm);
 use Exporter;
 
-$VERSION = 0.6.1; #  ROC 8.8.2005
+$VERSION = 0.6.2; #  ROC 10.2.2006
 
 @ISA = qw(Exporter);
 
@@ -162,7 +162,7 @@
 sub sstrip {
     my ($name) = @_;
     
-    if ($name =~ /\s*(.*)\s*/) {
+    if ($name =~ /^\s*(.*?)\s*$/) {
 	return $1;
     }
     return $name;