Revision: 1445
Author:   [email protected]
Date:     Fri Dec 28 02:55:05 2012
Log:      Fix the perl v5.17+ fix to do-the-right-thing for 5.17.4.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1445

Modified:
 /trunk/Changes
 /trunk/lib/Devel/NYTProf/Core.pm

=======================================
--- /trunk/Changes      Wed Dec 26 10:43:23 2012
+++ /trunk/Changes      Fri Dec 28 02:55:05 2012
@@ -9,6 +9,10 @@
 TODO: study http://www.postgresql.org/docs/9.2/static/pgtesttiming.html
 and reference in our docs.

+=head2 Changes in Devel::NYTProf 4.12 (svn 1438) 28th Dec 2012
+
+  Fix the perl v5.17+ fix to do-the-right-thing for 5.17.4.
+
 =head2 Changes in Devel::NYTProf 4.11 (svn 1442) 26th Dec 2012

   Fixed to work with perl v5.17+, specifically string eval
=======================================
--- /trunk/lib/Devel/NYTProf/Core.pm    Wed Dec 26 10:42:41 2012
+++ /trunk/lib/Devel/NYTProf/Core.pm    Fri Dec 28 02:55:05 2012
@@ -19,7 +19,7 @@
 XSLoader::load('Devel::NYTProf', $VERSION);

 # Fudging for https://rt.cpan.org/Ticket/Display.html?id=82256
-$Devel::NYTProf::StrEvalTestPad = ($] <= 5.017003) ? ";\n" : "";
+$Devel::NYTProf::StrEvalTestPad = ($] <= 5.017004) ? ";\n" : "";

 if (my $NYTPROF = $ENV{NYTPROF}) {
     for my $optval ( $NYTPROF =~ /((?:[^\\:]+|\\.)+)/g) {

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