Revision: 936
Author: tim.bunce
Date: Tue Dec  8 05:17:48 2009
Log: Disabled savesrc=1 tests for perl 5.11.2 due to perl bug RT#70804

http://code.google.com/p/perl-devel-nytprof/source/detail?r=936

Modified:
  /trunk/t/lib/NYTProfTest.pm

=======================================
--- /trunk/t/lib/NYTProfTest.pm Mon Dec  7 05:04:12 2009
+++ /trunk/t/lib/NYTProfTest.pm Tue Dec  8 05:17:48 2009
@@ -75,12 +75,17 @@
  # turn ./perl into ../perl, because of chdir(t) above.
  $perl = ".$perl" if $perl =~ m|^\./|;

+
  if ($opts{one}) {           # for one quick test
      $opts{leave}      = 1;
      $opts{use_db_sub} = 0;
      $opts{savesrc}    = 1;
      $opts{compress}   = 1;
  }
+
+# force savesrc off for perl 5.11.2 due to perl bug RT#70804
+$opts{savesrc} = 0 if $] eq "5.011002";
+
  my @test_opt_leave      = (defined $opts{leave})      ?  
($opts{leave})      : (0, 1);
  my @test_opt_use_db_sub = (defined $opts{use_db_sub}) ?  
($opts{use_db_sub}) : (0, 1);
  my @test_opt_savesrc    = (defined $opts{savesrc})    ?  
($opts{savesrc})    : (0, 1);

-- 
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]

Reply via email to