databases/p5-SQL-Translator/files/5.005_03-patch-t::19sybase-parser.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--- t/19sybase-parser.t.orig	Sun May  9 19:14:03 2004
+++ t/19sybase-parser.t	Sun May  9 19:14:34 2004
@@ -17,9 +17,9 @@
 my $data;
 {
     local $/;
-    open my $fh, "<$file" or die "Can't read file '$file': $!\n";
-    $data = <$fh>;
-    close $fh;
+    open FH, "<$file" or die "Can't read file '$file': $!\n";
+    $data = <FH>;
+    close FH;
 }
 
 ok( $data, 'Data' );