From 5722f8b4fdf9a3fb906d6d41f07e3c8c9f129570 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Mon, 28 Jan 2019 09:22:05 -0500
Subject: [PATCH] TT#50954 use <STDIN> instead of <<>> for older Perl versions

fixes #694

Change-Id: I2ca830766577f27b85224ea3b5ffef105966ce2d
---
 utils/const_str_hash | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/const_str_hash b/utils/const_str_hash
index 349ccf1f2..ccfe1ae32 100755
--- a/utils/const_str_hash
+++ b/utils/const_str_hash
@@ -13,7 +13,7 @@ my %key_vals;
 
 # collect keywords and rewrite input file with in lookup keys
 
-while (my $line = <<>>) {
+while (my $line = <STDIN>) {
 	if (!($line =~ s/CSH_LOOKUP\("(.*?)"\)/{}/)) {
 		$rewritten_input .= $line;
 		next;