Fixes problems when the string to print contains '$'

2010-05-27 16:26:43 +01:00
parent 6776233778 a24f6371ac
commit d93b28dab2
1 changed files with 1 additions and 1 deletions
@@ -286,7 +286,7 @@ sub printField {
        $col = 0;
    }

-    print sprintf("$outStr%*s",$pad," ");
+    print $outStr . sprintf("%*s",$pad," ");
    $col = $col + $wide;

    return($col);