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 (file)
--- 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;
     }