From: Paul Harrington <phrrngtn@users.sourceforge.net>
Date: Wed, 8 Oct 2003 20:33:31 +0000 (+0000)
Subject: store in network order
X-Git-Tag: v0.04~106
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=349af1145a95c90b8012fd93cd90aabd4586ecd0;p=dbsrgits%2FSQL-Translator.git

store in network order
---

diff --git a/lib/SQL/Translator/Producer/Storable.pm b/lib/SQL/Translator/Producer/Storable.pm
index 76676c5..c636660 100755
--- a/lib/SQL/Translator/Producer/Storable.pm
+++ b/lib/SQL/Translator/Producer/Storable.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::Storable;
 
 # $Source: /home/faga/work/sqlfairy_svn/sqlfairy-cvsbackup/sqlfairy/lib/SQL/Translator/Producer/Storable.pm,v $
-# $Id: Storable.pm,v 1.1 2003-10-08 18:24:25 phrrngtn Exp $
+# $Id: Storable.pm,v 1.2 2003-10-08 20:33:31 phrrngtn Exp $
 
 =head1 NAME
 
@@ -25,7 +25,7 @@ saved on disk or whatever.
 use strict;
 use vars qw($DEBUG $VERSION @EXPORT_OK);
 $DEBUG = 0 unless defined $DEBUG;
-$VERSION = sprintf "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
 
 use Storable;
 use Exporter;
@@ -40,7 +40,7 @@ sub produce {
 
     my $args        = $t->producer_args;
     my $schema      = $t->schema;
-    my $serialized  = Storable::freeze($schema);
+    my $serialized  = Storable::nfreeze($schema);
 
     return $serialized;
 }