Changeset 23130

Timestamp:

11/10/08 16:56:02 (5 years ago)

Author:

drry

Message:

• oops. [23129]
  

Files:

• lang/perl/XML-Liberal/trunk/lib/XML/Liberal/Remedy/UndeclaredNS.pm (modified) (1 diff)

lang/perl/XML-Liberal/trunk/lib/XML/Liberal/Remedy/UndeclaredNS.pm

@@ -44 +44 @@
     my $ns = $namespaces{$prefix} || "http://example.org/unknown/$self->{prefix}#";
 
-    my $match = $$xml_ref =~ s!^(<\?xml\s[^>]*?\?>\s*(?:<![^>]+>\s*)*<\S+)(?=\s*/?)!$1 xmlns:$prefix="$ns"!;
+    my $match = $$xml_ref =~ s{^(<\?xml\s[^>]*?\?>\s*(?:<![^>]+>\s*)*<\S+)(?=\s*/?)}
+                              {$1 xmlns:$prefix="$ns"};
     return 1 if $match;