| CPAN Ratings Reviews by Dirk Lindner | |
| Home | Search | About | Bitcard Account | Login |
$m =~ s?(\w)/?$1::?g;
will crash kate.pm
You code loks ugly but powerful.
So i dont realy understand how this works.
Template.pm
if ($sample =~ /$reg/g) {
$pos = pos($sample);
# @cap = ($1, $2, $3, $4, $5, $6, $7, $8, $9);
# my @cap = ();
if ($#-) {
no strict 'refs';
my @cap = map {$$_} 1 .. $#-;
$self->captured(\@cap);
}
# my $r = 1;
# my $c = 1;
# my @cap = ();
# while ($r) {
# eval "if (defined\$$c) { push \@cap, \$$c } else { \$r = 0 }";
# $c ++;
# }
# if (@cap) { $self->captured(\@cap) };
}
}
called by
Perl.pm
if ($self->testRegExpr($text, '\\$(?=%1)', 0, 1, 0, undef, 0, '#stay', 'Pattern Internal Operator')) {
return 1
}
# String => '([^\w\s[\]{}()])'
# attribute => 'Operator'
# beginRegion => 'Pattern'
# context => 'subst_slash_pattern'
# type => 'RegExpr'
$text=~s/\?/\//g;
if ($self->testRegExpr($text, '([^\\w\\s[\\]{}()])', 0, 0, 0, undef, 0, 'subst_slash_pattern', 'Operator')) {
return 1
}
return 0;
this help to skip it
'([^\\w\\s[\\]{}()\?\|])'
but it is not a solution
Can give me a tip how does it works or simple fix ?
Greetz Linze
Dirk Lindner - 2008-06-28T02:55:44
Its a Great Module, you can save a lot of time with it ;)
Dirk Lindner - 2007-09-08T01:27:16
|
Perl.org sites
: bugs
| dev
| history
| jobs
| learn
| lists
| use
Site Information and Contacts |
|