perl-Glib r1065 - trunk

[tsch svn gnome org]

Author: tsch
Date: Mon Feb  2 21:28:19 2009
New Revision: 1065
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1065&view=rev

Log:
Always use Data::Dumper on MSWin32 for serialization.  Storable seems to
consistently fail there, stating 'Magic number checking on storable file
failed'.


Modified:
   trunk/ChangeLog
   trunk/ParseXSDoc.pm

Modified: trunk/ParseXSDoc.pm
==============================================================================
--- trunk/ParseXSDoc.pm	(original)
+++ trunk/ParseXSDoc.pm	Mon Feb  2 21:28:19 2009
@@ -85,9 +85,11 @@
 
 	# Data::Dumper converts the whole output to a string, and consequently
 	# uses an obscene amount of ram on Gtk2's nearly 200 xs files.  Use
-	# Storable unless the user really really wants to force us to fall
-	# back to Data::Dumper.
-	if ($ENV{FORCE_DATA_DUMPER}) {
+	# Storable unless the user really really wants to force us to fall back
+	# to Data::Dumper.  Storable doesn't seem to work well on win32, so
+	# always use Data::Dumper there.
+	my $use_dd = $ENV{FORCE_DATA_DUMPER} || $^O eq 'MSWin32';
+	if ($use_dd) {
 		$Data::Dumper::Purity = 1;
 		print Data::Dumper->Dump([$parser->{xspods}, $parser->{data}],
 		                       [qw($xspods            $data)]);