| Subject: | [PATCH] Fix for 5.21.5 |
Perl 5.21.5 now uses srefgen for \&foo. See the attached patch.
| Subject: | open_aJImS269.txt |
diff -rup B-RecDeparse-0.09-El6Hdm-orig/lib/B/RecDeparse.pm B-RecDeparse-0.09-El6Hdm/lib/B/RecDeparse.pm
--- B-RecDeparse-0.09-El6Hdm-orig/lib/B/RecDeparse.pm 2014-10-26 00:15:38.000000000 -0700
+++ B-RecDeparse-0.09-El6Hdm/lib/B/RecDeparse.pm 2014-10-26 00:15:51.000000000 -0700
@@ -190,6 +190,15 @@ sub pp_refgen {
}
}
+sub pp_srefgen {
+ my $self = shift;
+
+ return do {
+ local $self->{brd_sub} = 0;
+ $self->SUPER::pp_srefgen(@_);
+ }
+}
+
sub pp_gv {
my $self = shift;