perl 5.8 support (mst)

[catagits/DOM-Tiny.git] / lib / DOM / Tiny / _CSS.pm

diff --git a/lib/DOM/Tiny/_CSS.pm b/lib/DOM/Tiny/_CSS.pm
index 5ab9849..5ec2fe6 100644 (file)
--- a/lib/DOM/Tiny/_CSS.pm
+++ b/lib/DOM/Tiny/_CSS.pm
@@ -109,7 +109,14 @@ sub _compile {
 
     # Attributes
     elsif ($css =~ /\G$ATTR_RE/gco) {
-      push @$last, ['attr', _name($1), _value($2 // '', $3 // $4 // $5, $6)];
+      push @$last, [
+        'attr', _name($1),
+        _value(
+          defined($2) ? $2 : '',
+          defined($3) ? $3 : defined($4) ? $4 : $5,
+          $6
+        ),
+      ];
     }
 
     # Pseudo-class (":not" contains more selectors)
@@ -144,7 +151,7 @@ sub _equation {
   return $num if $equation !~ /(?:(-?(?:\d+)?)?(n))?\s*\+?\s*(-?\s*\d+)?\s*$/i;
   $num->[0] = defined($1) && $1 ne '' ? $1 : $2 ? 1 : 0;
   $num->[0] = -1 if $num->[0] eq '-';
-  $num->[1] = $3 // 0;
+  $num->[1] = defined($3) ? $3 : 0;
   $num->[1] =~ s/\s+//g;
   return $num;
 }