Changeset 821

Timestamp:

05/25/06 00:29:04

Author:

miyagawa

Message:

clone conf so that it doesn't break the data. Add w3m support

Files:

• trunk/plagger/lib/Plagger/Cookies.pm (modified) (3 diffs)

trunk/plagger/lib/Plagger/Cookies.pm

@@ -3 +3 @@
-
-use UNIVERSAL::require;
+use Storable;
-
-our %Instances;
@@ -15 +16 @@
-
-    $Instances{$conf->{file}} ||= do {
+        $conf = Storable::dclone($conf);
-        my $type = delete $conf->{type};
-        my $impl = $type ? "HTTP::Cookies::$type" : "HTTP::Cookies";
@@ -37 +39 @@
-    elsif ($filename =~ /Cookies\.plist$/i) {
-        return { type => 'Safari', file => $filename };
+    }
+    elsif ($filename =~ m!\.w3m/cookie$!) {
+        return { type => 'w3m', file => $filename };
-    }
-