# HG changeset patch
# User Peter Gervai <grin@grin.hu>
# Date 1632954607 -7200
# Node ID c4085453688b05c37288d34d70aecbee1b493504
# Parent  78c000fd2ee77b1b29af88bc83678ca583071391
perlgrok.pl: forgot to use pattern filename.

diff -r 78c000fd2ee7 -r c4085453688b perlgrok.pl
--- a/perlgrok.pl	Wed Sep 29 23:17:35 2021 +0200
+++ b/perlgrok.pl	Thu Sep 30 00:30:07 2021 +0200
@@ -49,7 +49,7 @@
 }
 
 # read patterns
-my $f = new IO::File "< patterns" or die "cannot open patterns: $!";
+my $f = new IO::File "< $fn_pattern" or die "cannot open patterns: $!";
 while( <$f> ) {
     chomp;
     # skip empty and comment lines