do not trim valueless contents

diff --git a/barcat b/barcat
index 600f453ffd3fad89a5ea764eada0338f745c7db4..1347cf5a5d053e282c721d6ee2669419180643a5 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -85,7 +85,7 @@ while (readline) {
        s/^\h*// unless $opt{unmodified};
        push @values, s/$valmatch/\n/ && $1;
        push @order, $1 if length $1;
-       if (defined $opt{trim}) {
+       if (defined $opt{trim} and defined $1) {
                my $trimpos = abs $opt{trim};
                if ($trimpos <= 1) {
                        $_ = substr $_, 0, 1;