Sorry if this has been reported already--

--- Document.pm.orig    Fri Apr  6 13:04:58 2001
+++ Document.pm Fri May 25 17:14:06 2001
@@ -238,7 +238,7 @@
     $metadata = join('',
                       map {
                           my $x = $metadata->{ $_ };
-                          $x =~ s/['\\]/\\$1/g;
+                          $x =~ s/(['\\])/\\$1/g;
                           "'$_' => '$x',\n";
                       } keys %$metadata);

--
Eric Cholet
B995 E519 1594 10D0 4271 1EA5 8DF3 8004


Reply via email to