testsuite/stap_merge.tcl: update for magic word in transport stream

This fixes a small regression in the testsuite.

diff --git a/testsuite/systemtap.printf/stap_merge.tcl b/testsuite/systemtap.printf/stap_merge.tcl
index 0c7d7b694709057f87488376467d59846023fe1b..591e9b4005642c6227823e7c91c424c48b2a6d84 100755 (executable)
--- a/testsuite/systemtap.printf/stap_merge.tcl
+++ b/testsuite/systemtap.printf/stap_merge.tcl
@@ -15,7 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
-# Copyright (C) Red Hat Inc, 2007
+# Copyright (C) Red Hat Inc, 2007-2023
 #
 #
 
@@ -51,6 +51,8 @@ foreach file $files {
        exit 1
     }
     fconfigure $fd($n) -translation binary
+    # read & ignore magic
+    read $fd($n) 4
     if {![binary scan [read $fd($n) 4] $int_format timestamp($n)]} {
        continue
     }
@@ -90,6 +92,9 @@ while {1} {
     set data [read $fd($mincpu) $len]
     puts -nonewline $outfile $data
 
+    # read & ignore magic
+    read $fd($mincpu) 4
+    
     set data [read $fd($mincpu) 4]
     if {$data == ""} {
        unset fd($mincpu)