diff options
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index b50b779d..0b71c918 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -166,9 +166,9 @@ sub debug { } sub escape { - my ($self) = @_; - my %args = @_; - my $str = $args{string}; + my $self = shift; + my %args = @_; + my $str = $args{string}; my $regex = qr/([^a-zA-Z0-9_.-])/; $str =~ s/$regex/sprintf("%%%02x", ord($1))/ge; @@ -221,8 +221,8 @@ sub num_text_rows { my $line = $_; while ( length($line) > $cols ) { my $fragment = substr( $line, 0, $cols + 1 ); - my $fragment = s/^(.*)\S*$/$1/; - $line = s/$fragment//; + $fragment =~ s/^(.*)\W.*$/$1/; + $line =~ s/$fragment//; if ( $line eq $fragment ) { # No word breaks! $line = ""; } @@ -595,3 +595,4 @@ sub merge { } 1; + |