Author: thatsafunnyname
Date: Thu Mar 26 09:13:25 2009
New Revision: 730
Modified:
trunk/bin/nytprofhtml
Log:
TIMTOWTDI and I agree \Q quote non-word characters till \E is neater.
Modified: trunk/bin/nytprofhtml
==============================================================================
--- trunk/bin/nytprofhtml (original)
+++ trunk/bin/nytprofhtml Thu Mar 26 09:13:25 2009
@@ -481,9 +481,7 @@
}
my $href = $reporter->get_file_stats()->{$filename}{html_safe}
|| "unknown";
-
- my $filename_with_regexp_escaped = quotemeta($filename);
- $line_desc =~ s/ of $filename_with_regexp_escaped$// if
$filename eq $thisfile;
+ $line_desc =~ s/ of \Q$filename\E$// if $filename eq $thisfile;
push @prologue,
sprintf q{# %*s times%s%s at <a href="%s#%d">%s</a>%s},
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
