Changeset 26

Show
Ignore:
Timestamp:
12/26/06 09:23:18 (2 years ago)
Author:
miyagawa
Message:

Don't make use of $& variable

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lib/CSS/Cleaner.pm

    r25 r26  
    122122        my $check_phrases = sub { 
    123123            my $str = shift; 
    124             if ($$str =~ m/\bdata:\b|javascript|jscript|livescript|vbscript|expression|eval|cookie 
    125                 |\bwindow\b|\bparent\b|\bthis\b|behaviou?r|moz-binding/ix) { 
    126                 my $what = lc $&; 
     124            if ($$str =~ m/(\bdata:\b|javascript|jscript|livescript|vbscript|expression|eval|cookie 
     125                |\bwindow\b|\bparent\b|\bthis\b|behaviou?r|moz-binding)/ix) { 
     126                my $what = lc $1; 
    127127                $$ref = "/* suspect CSS: potential scripting: $what */"; 
    128128                return 1;