File: Deserializer-enable-rv2gv.patch

package info (click to toggle)
libcatalyst-action-serialize-data-serializer-perl 1.08-2
  • links: PTS, VCS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch
  • size: 248 kB
  • ctags: 190
  • sloc: perl: 2,409; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 838 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Description: Enable rv2gv in deserializer's Safe compartment
 without this tests fail with:
  'ref-to-glob cast' trapped by operation mask
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=87836
Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=719983
Author: Damyan Ivanov <dmn@debian.org>
Forwarded: yes

--- a/lib/Catalyst/Action/Deserialize/Data/Serializer.pm
+++ b/lib/Catalyst/Action/Deserialize/Data/Serializer.pm
@@ -8,7 +8,7 @@ use Data::Serializer;
 use Safe;
 use Scalar::Util qw(openhandle);
 my $compartment = Safe->new;
-$compartment->permit_only( qw(padany null lineseq const pushmark list anonhash anonlist refgen leaveeval undef) );
+$compartment->permit_only( qw(padany null lineseq const pushmark list anonhash anonlist refgen leaveeval undef rv2gv) );
 
 our $VERSION = '1.08';
 $VERSION = eval $VERSION;