| Subject: | Bareword "FIN" and "FOUT" not allowed while "strict subs" |
perl-5.14.2
Term-ReadLine-1.14
While debugging a problem with the perl debugger I was confronted with the fact that the debugger did not stop but runs through and spits out a lot of strange "Compilation failed" error messages. The first two strange lines were
Bareword "FIN" not allowed while "strict subs" in use at /home/micsw/perl5/lib/perl5/Term/ReadLine.pm line 272.
Bareword "FOUT" not allowed while "strict subs" in use at /home/micsw/perl5/lib/perl5/Term/ReadLine.pm line 274.
264 #local (*FIN, *FOUT);
265 my ($FIN, $FOUT, $ret);
...
272 open FIN, ( $^O eq 'MSWin32' && $console eq 'CONIN$' ) ? "+<$console" :
273 "<$console";
274 open FOUT,">$consoleOUT";
I have fixed the lines 272 and 274 using the already defined lexical variables $FIN and $OUT. My debugging problem disappears. I don't understand why the switch from bareword filehandles to lexically scoped filehandles was seemingly only done half.