Commits

Toby Inkster  committed c45e1ef

Patch for HTML::Selector::XPath - https://rt.cpan.org/Ticket/Display.html?id=73719

  • Participants
  • Parent commits 823d355

Comments (0)

Files changed (1)

File devel.patches/hsxp-prefix.diff

+--- /usr/lib/perl5/site_perl/5.10.1/HTML/Selector/XPath.pm	2011-11-24 22:14:11.000000000 +0000
++++ lib/XML/LibXML/QuerySelector/ToXPath.pm	2012-01-03 22:39:44.410280697 +0000
+@@ -139,6 +139,11 @@
+             } else {
+                 $tag = '*';
+             }
++
++            if (defined $parms{prefix} and not $tag =~ /[*:|]/) {
++                $tag = join ':', $parms{prefix}, $tag;
++            }
++
+             if (! $wrote_tag++) {
+                 push @parts, $tag;
+                 $tag_index = $#parts;