From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 12 May 2002 23:49:00 +0000 (+0000)
Subject: Be clean.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7589e17d81493a7065648e700081a252e10a5c33;p=p5sagit%2Fp5-mst-13.2.git

Be clean.

p4raw-id: //depot/perl@16569
---

diff --git a/Makefile.SH b/Makefile.SH
index 3361b42..01fab27 100644
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -935,7 +935,7 @@ _cleaner2:
 	rm -rf lib/Encode
 	-rmdir lib/IO/Socket lib/IO/t lib/IO
 	-rmdir lib/Filter/Util lib/List lib/MIME lib/PerlIO lib/Scalar lib/Sys
-	-rmdir lib/Thread lib/XS lib/threads/shared lib/threads
+	-rmdir lib/Thread lib/XS lib/threads/shared lib/threads t/lib/B
 
 _realcleaner:
 	@$(LDLIBPTH) $(MAKE) _cleaner1 CLEAN=realclean
diff --git a/ext/B/t/o.t b/ext/B/t/o.t
index 55a5364..d964228 100644
--- a/ext/B/t/o.t
+++ b/ext/B/t/o.t
@@ -60,6 +60,7 @@ sub get_lines {
 
 END {
 	1 while unlink($file);
+	rmdir($path); # not "1 while" since there might be more in there
 }
 
 __END__