From: Prymmer/Kahn <pvhp@best.com>
Date: Mon, 7 May 2001 07:47:21 +0000 (-0700)
Subject: Re: RFC: changing Devel::SelfStubber to relinquish its grasp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a36cb9fc197a1a73ace412295da9f0c4850d62e;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/Devel/SelfStubber.pm b/lib/Devel/SelfStubber.pm
index 9009d69..baf46dc 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;
     }