perl-Glib r1066 - branches/stable-1-20

[tsch svn gnome org]

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

Log:
Merge r1065 from trunk.


Modified:
   branches/stable-1-20/   (props changed)
   branches/stable-1-20/ChangeLog
   branches/stable-1-20/ParseXSDoc.pm

Modified: branches/stable-1-20/ParseXSDoc.pm
==============================================================================
--- branches/stable-1-20/ParseXSDoc.pm	(original)
+++ branches/stable-1-20/ParseXSDoc.pm	Mon Feb  2 21:30:42 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)]);