Changeset 26

Timestamp:

12/26/06 09:23:18 (3 years ago)

Author:

miyagawa

Message:

Don't make use of $& variable

Files:

• trunk/lib/CSS/Cleaner.pm (modified) (1 diff)

trunk/lib/CSS/Cleaner.pm

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