DATA filehandle not closed in Symbol.pm

diff --git a/lib/Symbol.pm b/lib/Symbol.pm
index ccc12b6..a12e6dc 100644 (file)
--- a/lib/Symbol.pm
+++ b/lib/Symbol.pm
@@ -61,6 +61,7 @@ while (<DATA>) {
     chomp;
     $global{$_} = 1;
 }
+close DATA;
 
 sub gensym () {
     my $name = "GEN" . $genseq++;