Be clean.

p4raw-id: //depot/perl@16569

diff --git a/Makefile.SH b/Makefile.SH
index 3361b42..01fab27 100644 (file)
--- 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 (file)
--- 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__