diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/interfaces/ecpg/preproc/parse.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interfaces/ecpg/preproc/parse.pl b/src/interfaces/ecpg/preproc/parse.pl index a15f563ad45..8fb22242492 100644 --- a/src/interfaces/ecpg/preproc/parse.pl +++ b/src/interfaces/ecpg/preproc/parse.pl @@ -27,8 +27,8 @@ GetOptions( 'parser=s' => \$parser,) or die "wrong arguments"; # open parser / output file early, to raise errors early -open(our $parserfh, '<', $parser) or die "could not open parser file $parser"; -open(our $outfh, '>', $outfile) or die "could not open output file $outfile"; +open(my $parserfh, '<', $parser) or die "could not open parser file $parser"; +open(my $outfh, '>', $outfile) or die "could not open output file $outfile"; my $copymode = 0; my $brace_indent = 0; |