Permalink
Browse files

Let Data::Dumper deparse CODE refs to serialize them, just like Storable

Otherwise they are replaced by sub { "DUMMY" }.
  • Loading branch information...
1 parent a332743 commit 265503864a3562ba233d82a1dd4c59fdea96f1ec @tsibley tsibley committed Jun 5, 2014
Showing with 1 addition and 0 deletions.
  1. +1 −0 Bio/DB/SeqFeature/Store.pm
View
1 Bio/DB/SeqFeature/Store.pm
@@ -2477,6 +2477,7 @@ sub freeze {
my $d = Data::Dumper->new([$obj]);
$d->Terse(1);
$d->Deepcopy(1);
+ $d->Deparse(1);
$data = $d->Dump;
} elsif ($serializer eq 'Storable') {
local $Storable::forgive_me = 1;

0 comments on commit 2655038

Please sign in to comment.