Socket: BUGFIX: Explicitly copy image

[senf.git] / run-test-gdb.sh

diff --git a/run-test-gdb.sh b/run-test-gdb.sh
index 7572cc8..3cd2bd1 100755 (executable)
--- a/run-test-gdb.sh
+++ b/run-test-gdb.sh
@@ -61,7 +61,7 @@ gdb -batch -x .run-test-gdb.cmd ./.test.bin 2>/dev/null | perl -e '
     elsif ($mode==2) {
       if (/^(#?[0-9]| )/) {
         push @l,$_ if /^#/;
-        $l[$#l] .= $_ if /^ /;
+        $l[$#l] .= $_ if @l && /^ /;
       } else {
         $mode=0;
         if (/: fatal error in /) {