[Bps-public-commit] smokingit-worker branch, master, updated. 17c6ec21c69b6ed9509ddcb26c2dd35db7a1f28d

Alex Vandiver alexmv at bestpractical.com
Fri Dec 2 15:15:16 EST 2011


The branch, master has been updated
       via  17c6ec21c69b6ed9509ddcb26c2dd35db7a1f28d (commit)
      from  6e81846c1223995e1322c425a2e3db0dfacb52fe (commit)

Summary of changes:
 lib/Smokingit/Worker.pm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 17c6ec21c69b6ed9509ddcb26c2dd35db7a1f28d
Author: Alex Vandiver <alex at chmrr.net>
Date:   Fri Dec 2 15:15:11 2011 -0500

    Use network-agnostic formats when freezing

diff --git a/lib/Smokingit/Worker.pm b/lib/Smokingit/Worker.pm
index d6ac180..79402a3 100644
--- a/lib/Smokingit/Worker.pm
+++ b/lib/Smokingit/Worker.pm
@@ -7,7 +7,7 @@ use base 'Gearman::Worker';
 use TAP::Harness;
 
 use Gearman::Client;
-use Storable qw( freeze thaw );
+use Storable qw( nfreeze thaw );
 use YAML;
 
 use Smokingit::Worker::Clean::TmpFiles;
@@ -102,7 +102,7 @@ sub run_tests {
     my $error = sub {
         $result->{error} = shift;
         warn $result->{error} . "\n";
-        $self->client->do_task(post_results => freeze($result));
+        $self->client->do_task(post_results => nfreeze($result));
         $cleanup->();
     };
 
@@ -164,7 +164,7 @@ sub run_tests {
         for keys %{$aggregator->{parser_for}};
     $result->{aggregator} = $aggregator;
 
-    $self->client->do_task(post_results => freeze($result))
+    $self->client->do_task(post_results => nfreeze($result))
         or die "Can't send task!";
 
     # Clean out

-----------------------------------------------------------------------



More information about the Bps-public-commit mailing list