Call close as a function rather than a method

[dbsrgits/SQL-Translator.git] / t / 05bgep-re.t

diff --git a/t/05bgep-re.t b/t/05bgep-re.t
index db38576..b2fc918 100644 (file)
--- a/t/05bgep-re.t
+++ b/t/05bgep-re.t
@@ -51,7 +51,7 @@ SKIP: {
                                 SUFFIX => '.xml',
                                 DIR => tmpdir);
     print $fh $data;
-    $fh->close;
+    close $fh;
 
     ok(XML::Parser->new->parsefile($fname),
         "Successfully parsed output");