X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=9264d50501b05440e35c481e69f0e6d3c60807ef;hb=e69b2b430d27710d1bb636f9aa7720da1d067359;hp=aad4696565e1a9e8a709572b8467432b9fa7d011;hpb=88665a2bed3b9ec9e97237938a95a045b2a21bb4;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index aad46965..9264d505 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -284,7 +284,8 @@ sub writefilestr
 sub unpad
 {
 	my $s = shift;
-	$s =~ s/^\s+|\s+$//;
+	$s =~ s/\s+$//;
+	$s =~ s/^\s+//;
 	return $s;
 }