Changeset 430

Timestamp:

01/09/07 16:43:23 (6 years ago)

Author:

lincoln

Message:

thinko on converting imdb to Storable

Files:

• postprocessors/imdb_augment_data (modified) (4 diffs)

postprocessors/imdb_augment_data

@@ -25 +25 @@
 
 my $progname = "imdb_augment_data";
-my $version = "0.07";
+my $version = "0.08";
 
 use LWP::UserAgent;
@@ -207 +207 @@
                 # delete old-format cache
                 unlink "imdb_augment_data.cache";
+
+                &log("Converted old-style cache to new-style.");
         }
 
@@ -213 +215 @@
         #
         if (-r $opt->{cache_file}) {
-                $data_cache = Storable::retrieve($opt->{cache_file});
+                my $store = Storable::retrieve($opt->{cache_file});
+                $data_cache = $store->{data_cache};
         } else {
                 printf "WARNING: no cache $opt->{cache_file} - ".
@@ -251 +254 @@
 sub write_cache
 {
-        Storable::store($data_cache, $opt->{cache_file});
+        my $store;
+        $store->{data_cache} = $data_cache;
+        Storable::store($store, $opt->{cache_file});
 }