# HG changeset patch
# User casties
# Date 1139590878 -3600
# Node ID 2890dd75d2f67cf5f4269764f32743fdfec8974d
# Parent  24d9dd63ae932f768a78bb64b4c46da8e1edaa4c
fixed bug in sstrip with whitespace at the end of the string...

diff -r 24d9dd63ae93 -r 2890dd75d2f6 MPIWGStor.pm
--- 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;