diff --git a/contrib/logparse.pl b/contrib/logparse.pl
index fe5fc53e..c1bd60d2 100755
--- a/contrib/logparse.pl
+++ b/contrib/logparse.pl
@@ -1032,7 +1032,7 @@ my ($direction, $seq, $ourseq, $type, $data, $recording);
 my %ourseqs = ('i'=>0, 'o'=>0);
 
 $recording = 0;
-while (<>) {
+while (<<>>) {
     if ($recording) {
         if (/^  [0-9a-fA-F]{8}  ((?:[0-9a-fA-F]{2} )*[0-9a-fA-F]{2})/) {
             push @$data, map { $_ eq "XX" ? -1 : hex $_ } split / /, $1;
diff --git a/contrib/logrewrap.pl b/contrib/logrewrap.pl
index ca2716f8..3a50b0b3 100755
--- a/contrib/logrewrap.pl
+++ b/contrib/logrewrap.pl
@@ -19,7 +19,7 @@
 use strict;
 use warnings;
 
-while (<>) {
+while (<<>>) {
     if (/^  ([0-9a-f]{8})  ((?:[0-9a-f]{2} ){0,15}(?:[0-9a-f]{2}))/) {
         my $addr = $1;
         my $hex = $2;
@@ -36,7 +36,7 @@ while (<>) {
         if ($old_line ne $new_line and
             $old_line eq substr($new_line, 0, length($old_line))) {
             print "$new_line\n";
-            <>; # eat the subsequent wrapped line
+            <<>>; # eat the subsequent wrapped line
             next;
         }
     }