On Thu, Mar 26, 2009 at 01:03:36PM +0000, [email protected] wrote:
>
> Author: thatsafunnyname
> Date: Thu Mar 26 06:00:13 2009
> New Revision: 724
>
> Modified:
> trunk/bin/nytprofhtml
>
> Log:
> Filenames can have chars that are special regexp chars, escaping some I ran
> into on VMS.
>
> - $line_desc =~ s/ of $filename$// if $filename eq $thisfile;
I think doing
$line_desc =~ s/ of \Q$filename\E$// if $filename eq $thisfile;
would be a more correct fix. Could you revert and redo it that way?
Tim.
> + # if $filename conatins F-2 (NYTPROF-2??) then get error - invalid
> regexp range in line below, F-2
> + my $filename_with_regexp_escaped = $filename;
> + $filename_with_regexp_escaped =~ s/\-/\\-/g;
> + $filename_with_regexp_escaped =~ s/\[/\\[/g;
> + $filename_with_regexp_escaped =~ s/\]/\\]/g;
> + $line_desc =~ s/ of $filename_with_regexp_escaped$// 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]
-~----------~----~----~----~------~----~------~--~---
