index 36636ccaf35fd91e2c5324878547b7ca9b4e0d12..f48ce6b900a0b6b20b73a91bd1e4979dbef73d46 100644 (file)
}
if ($flexflags =~ /\s-b\s/)
{
- my $lexback = dirname($input) . "/lex.backup";
+ my $lexback = "lex.backup";
open($lfile,$lexback) || die "opening $lexback for reading: $!";
my $lexbacklines = <$lfile>;
close($lfile);