diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-12 22:06:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-12 22:06:25 +0000 |
| commit | 3e92a2540996678c49663ee454dadc7970cdb925 (patch) | |
| tree | 1641e68d00ce7690162d10db8f7bc3c6ba2eed48 /lib | |
| parent | 7d5ea4e771e13c538d9f0504cb48d13891fcb5c9 (diff) | |
| download | perl-3e92a2540996678c49663ee454dadc7970cdb925.tar.gz | |
fix DATA leaks; reword documentation about the DATA filehandle
p4raw-id: //depot/perl@4131
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Functions.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Pod/Functions.pm b/lib/Pod/Functions.pm index 5e6551f417..03cbf711eb 100644 --- a/lib/Pod/Functions.pm +++ b/lib/Pod/Functions.pm @@ -65,6 +65,8 @@ while (<DATA>) { } } +close DATA; + unless (caller) { foreach $type ( @Type_Order ) { $list = join(", ", sort @{$Kinds{$type}}); |