12. added an 'auto rcmd <node> for/oper <call>' for people I can see on the

[spider.git] / perl / DXUtil.pm

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index aad4696565e1a9e8a709572b8467432b9fa7d011..9264d50501b05440e35c481e69f0e6d3c60807ef 100644 (file)
--- 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;
 }