This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove DREFed flag from Concise.pm
authorFather Chrysostomos <sprout@cpan.org>
Sat, 8 Feb 2014 21:34:29 +0000 (13:34 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 9 Feb 2014 19:08:06 +0000 (11:08 -0800)
0824d667 added the flag.  9026059dcee8 removed the flag but left it in
B::Concise.

ext/B/B/Concise.pm

index 25235e4..6c818a4 100644 (file)
@@ -607,7 +607,6 @@ $priv{$_}{64} = "RTIME" for qw(match subst substcont qr);
   for qw(trans transr);
 $priv{repeat}{64} = "DOLIST";
 $priv{leaveloop}{64} = "CONT";
-$priv{$_}{4} = "DREFed" for qw(rv2sv rv2av rv2hv);
 @{$priv{$_}}{32,64,96} = qw(DREFAV DREFHV DREFSV)
   for qw(rv2gv rv2sv padsv aelem helem);
 $priv{$_}{16} = "STATE" for qw(padav padhv padsv);