X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=test%2Ftracemunch;h=13a3b64719efffd68bd826552d14e9325fed8b93;hb=a28e782d7794ddeec23e7cb212dc455f0d93dc22;hp=a8ba223e524ad5136a1f17f6517eea5f6d73b624;hpb=a6eb34d7fec8170a8715f9e53ca2f96452dd30dd;p=ncurses.git

diff --git a/test/tracemunch b/test/tracemunch
index a8ba223e..13a3b647 100755
--- a/test/tracemunch
+++ b/test/tracemunch
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: tracemunch,v 1.32 2020/09/26 19:40:55 tom Exp $
+# $Id: tracemunch,v 1.33 2020/12/26 23:56:50 tom Exp $
 ##############################################################################
 # Copyright 2018-2019,2020 Thomas E. Dickey                                  #
 # Copyright 1998-2005,2017 Free Software Foundation, Inc.                    #
@@ -511,6 +511,8 @@ sub muncher($) {
 
       CLASSIFY: {
 
+            next unless $_;
+
             # just in case someone tries a file with cr/lf line-endings:
             $_ =~ s/\r\n/\n/g;
             $_ =~ s/\r/\n/g;