Revision: 931 Author: tim.bunce Date: Sun Dec 6 04:43:19 2009 Log: Fixed t/test81-swash.t. Fails for perl >= 5.11.1.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=931 Modified: /trunk/t/test81-swash.t ======================================= --- /trunk/t/test81-swash.t Sat Dec 5 07:55:12 2009 +++ /trunk/t/test81-swash.t Sun Dec 6 04:43:19 2009 @@ -12,23 +12,26 @@ use Devel::NYTProf::Run qw(profile_this); +my $src_code = join("", <DATA>); + run_test_group( { extra_options => { - start => 'begin' + start => 'begin', compress => 1, }, - extra_test_count => 2, + extra_test_count => 1, extra_test_code => sub { my ($profile, $env) = @_; $profile = profile_this( - src_code => join("", <DATA>), + src_code => $src_code, out_file => $env->{file}, ); isa_ok $profile, 'Devel::NYTProf::Data'; }, }); +# crashes with perl 5.11.1+ __DATA__ $_ = "N\x{100}"; chop $_; -- 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]
