This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In test.pl, avoid using a closure to capture warnings.
authorNicholas Clark <nick@ccl4.org>
Sun, 13 Mar 2011 21:30:55 +0000 (21:30 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 13 Mar 2011 21:30:55 +0000 (21:30 +0000)
In the general case a closure is the "right" way to do "it". However, closures,
unlike local and regular subroutines, have some complexity at compile time,
which means that using closures in test.pl runs the risk of closure bugs
causing spurious hard to diagnose collateral damage to other tests. local is
already in use, and "has" to work for capturing warnings, as $SIG{__WARN__} is
localised already.

t/test.pl

index d83f69b..d9b9432 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -1097,13 +1097,18 @@ WHOA
     _ok( !$diag, _where(), $name );
 }
 
+# Purposefully avoiding a closure.
+sub __capture {
+    push @::__capture, join "", @_;
+}
+    
 sub capture_warnings {
     my $code = shift;
 
-    my @w;
-    local $SIG {__WARN__} = sub {push @w, join "", @_};
+    local @::__capture;
+    local $SIG {__WARN__} = \&__capture;
     &$code;
-    return @w;
+    return @::__capture;
 }
 
 # This will generate a variable number of tests.