Changeset 9493 for branches/cache/ippScripts/scripts/phase0_imfile.pl

Timestamp:

Oct 11, 2006, 3:15:34 PM (20 years ago)

Author:

jhoblitt

Message:

use storable to store the complete output of run()

File:

• branches/cache/ippScripts/scripts/phase0_imfile.pl (modified) (3 diffs)

branches/cache/ippScripts/scripts/phase0_imfile.pl

@@ -7 +7 @@
 $VERSION = '0.01';
 
+use Cache::File;
+use Storable qw(freeze thaw);
+use File::Basename qw( basename);
 use IPC::Cmd qw( can_run run );
 use PS::IPP::Metadata::Config;
 use PS::IPP::Metadata::Stats;
-use Data::Dumper;
-use Cache::File;
 
 use PS::IPP::Config;
@@ -79 +80 @@
 
 my $c = Cache::File->new(
-    cache_root => File::Spec->catdir($ENV{'HOME'}, '.pxcache'),
+    cache_root => File::Spec->catdir($ENV{'HOME'}, '.', basename($0)),
     default_expires => '7200 sec',
 );
@@ -96 +97 @@
     if (defined $cmd_output) {
         ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf )
-            = @{$cmd_output};
+            = @{thaw $cmd_output};
     } else {
         my @output = run(command => $command, verbose => 1);
-        $c->set($command, \@output) if $cache;
+        $c->set($command, freeze \@output) if $cache;
         ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf )
             = @output;