summaryrefslogtreecommitdiff
path: root/lib/Devel
diff options
context:
space:
mode:
authorPrymmer/Kahn <pvhp@best.com>2001-05-07 00:47:21 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-07 19:54:33 +0000
commit1a36cb9fc197a1a73ace412295da9f0c4850d62e (patch)
treea27e5c78c13d4206cdafe63b8d317e1164e96a17 /lib/Devel
parentd4ca583068b4a25bd4eb3f93ee8ddb508070e9ff (diff)
downloadperl-1a36cb9fc197a1a73ace412295da9f0c4850d62e.tar.gz
Re: RFC: changing Devel::SelfStubber to relinquish its grasp
Message-ID: <Pine.BSF.4.21.0105070733080.13301-100000@shell8.ba.best.com> p4raw-id: //depot/perl@10019
Diffstat (limited to 'lib/Devel')
-rw-r--r--lib/Devel/SelfStubber.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Devel/SelfStubber.pm b/lib/Devel/SelfStubber.pm
index 9009d69c9a..baf46dcb5a 100644
--- a/lib/Devel/SelfStubber.pm
+++ b/lib/Devel/SelfStubber.pm
@@ -58,6 +58,7 @@ sub stub {
push(@AFTER_DATA,$line);
}
}
+ close($fh);
unless ($JUST_STUBS) {
print @BEFORE_DATA;
}