This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove $SIG{__WARN__} from XSLoader.t
authorFather Chrysostomos <sprout@cpan.org>
Wed, 23 Nov 2011 20:34:49 +0000 (12:34 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 09:45:28 +0000 (01:45 -0800)
Nothing is using the results of this handler any more.

dist/XSLoader/t/XSLoader.t

index aab0af1..164e4e5 100644 (file)
@@ -75,9 +75,6 @@ my $extensions = $Config{'extensions'};
 $extensions =~ s|/|::|g;
 
 for my $module (sort keys %modules) {
-    my $warnings = "";
-    local $SIG{__WARN__} = sub { $warnings = $_[0] };
-
     SKIP: {
         skip "$module not available", 3 if $extensions !~ /\b$module\b/;