mirror of
https://git.freebsd.org/ports.git
synced 2025-06-06 05:10:29 -04:00
13 lines
376 B
Perl
13 lines
376 B
Perl
--- t/27sqlite-parser.t.orig Sun May 9 21:02:06 2004
|
|
+++ t/27sqlite-parser.t Sun May 9 21:02:33 2004
|
|
@@ -13,8 +13,8 @@
|
|
|
|
{
|
|
local $/;
|
|
- open my $fh, "<$file" or die "Can't read file '$file': $!\n";
|
|
- my $data = <$fh>;
|
|
+ open FH, "<$file" or die "Can't read file '$file': $!\n";
|
|
+ my $data = <FH>;
|
|
my $t = SQL::Translator->new;
|
|
parse($t, $data);
|
|
|