databases/p5-SQL-Translator/files/5.005_03-patch-t::05bgep-re.t


1
2
3
4
5
6
7
8
9
10
11

--- t/05bgep-re.t.orig	Sun May  9 19:03:10 2004
+++ t/05bgep-re.t	Sun May  9 19:03:27 2004
@@ -44,7 +44,7 @@
                                 SUFFIX => '.xml',
                                 DIR => tmpdir);
     print $fh $data;
-    $fh->close;
+    close $fh;
 
     ok(XML::Parser->new->parsefile($fname),
         "Successfully parsed output");