Socket: BUGFIX: Explicitly copy image

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

diff --git a/run-test-gdb.sh b/run-test-gdb.sh
index a540281..3cd2bd1 100755 (executable)
--- a/run-test-gdb.sh
+++ b/run-test-gdb.sh
@@ -42,7 +42,7 @@ gdb -batch -x .run-test-gdb.cmd ./.test.bin 2>/dev/null | perl -e '
   $mode=0;
   while (<STDIN>) {
     if ($mode==0) {
-      if (/^$/) { 
+      if (/^$/) {
         $mode=1;
       } else {
         print;
@@ -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 /) {