Revision: 1358
Author: [email protected]
Date: Wed Sep 15 02:51:09 2010
Log: Add workaround for some cpantesters failures.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1358
Modified:
/trunk/lib/Devel/NYTProf/FileInfo.pm
=======================================
--- /trunk/lib/Devel/NYTProf/FileInfo.pm Thu Jul 8 04:11:04 2010
+++ /trunk/lib/Devel/NYTProf/FileInfo.pm Wed Sep 15 02:51:09 2010
@@ -3,6 +3,7 @@
use strict;
use Carp;
+use Config;
use List::Util qw(sum max);
use Devel::NYTProf::Util qw(strip_prefix_from_paths trace_level);
@@ -542,6 +543,9 @@
NYTP_FIDi_FLAGS, NYTP_FIDi_FILESIZE, NYTP_FIDi_FILEMTIME
];
$values[0] = $self->filename_without_inc;
+ # also remove possible remaining perl version seen in some cpantesters
+ #
http://www.cpantesters.org/cpan/report/bf913910-bfdd-11df-a657-c9f38a00995b
+ $values[0] =~ s!^$Config{version}/!!o;
printf $fh "%s[ %s ]\n", $prefix, join(" ", map { defined($_) ?
$_ : 'undef' } @values);
--
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]
