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
