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	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