perl-CGI-Persistent/sme8/perl-CGI-Persistent-0.22-patch.stringify

diff -Nur -x '*.orig' -x '*.rej' CGI-Persistent-0.22/lib/CGI/Persistent.pm mezzanine_patched_CGI-Persistent-0.22/lib/CGI/Persistent.pm
--- CGI-Persistent-0.22/lib/CGI/Persistent.pm   2006-09-13 13:51:47.292925000 -0400
+++ mezzanine_patched_CGI-Persistent-0.22/lib/CGI/Persistent.pm 2006-09-13 13:51:40.122767000 -0400
@@ -48,6 +48,13 @@
 
     $cgi->{sessiondir} = $po->{sessiondir};
 
+    # Stringify the params. This is black magic to work around an interpreter
+    # crash in Data::Dumper.
+    foreach my $param ($cgi->param)
+    {
+        my $s = "param $param is " . $cgi->param($param) . "\n";
+    }
+
     $po->commit ();
     return bless $cgi, $class; 
 
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' CGI-Persistent-0.22/lib/CGI/Persistent.pm mezzanine_patched_CGI-Persistent-0.22/lib/CGI/Persistent.pm
2			--- CGI-Persistent-0.22/lib/CGI/Persistent.pm 2006-09-13 13:51:47.292925000 -0400
3			+++ mezzanine_patched_CGI-Persistent-0.22/lib/CGI/Persistent.pm 2006-09-13 13:51:40.122767000 -0400
4			@@ -48,6 +48,13 @@
5
6			$cgi->{sessiondir} = $po->{sessiondir};
7
8			+ # Stringify the params. This is black magic to work around an interpreter
9			+ # crash in Data::Dumper.
10			+ foreach my $param ($cgi->param)
11			+ {
12			+ my $s = "param $param is " . $cgi->param($param) . "\n";
13			+ }
14			+
15			$po->commit ();
16			return bless $cgi, $class;
17