Author: twists
Date: Sun Jun 7 00:45:19 2009
New Revision: 758
Modified:
trunk/t/31-env.t
Log:
Disable once, redefine warnings for t/31-env.t
Modified: trunk/t/31-env.t
==============================================================================
--- trunk/t/31-env.t (original)
+++ trunk/t/31-env.t Sun Jun 7 00:45:19 2009
@@ -1,4 +1,16 @@
use Test::More;
+require XSLoader;
+
+# Disable "once" warnings
+BEGIN {
+ my $ok = eval { require warnings; 1 };
+ if ( $ok ) {
+ warnings->unimport( qw( once redefine ) );
+ }
+ else {
+ $^W = 0;
+ }
+}
my @tests = (
[ 'start=no:file=nytprof.out' => { start => 'no', file
=> 'nytprof.out' } ],
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
-~----------~----~----~----~------~----~------~--~---
