From 6c08becf4ff5924df5bc81de10e35145e5528b6f Mon Sep 17 00:00:00 2001 From: Duane Powell Date: Wed, 4 Sep 2019 07:12:39 -0500 Subject: Clean up thaw() method --- challenge-024/duane-powell/perl5/ch-2.pl | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/challenge-024/duane-powell/perl5/ch-2.pl b/challenge-024/duane-powell/perl5/ch-2.pl index 4d304e566d..8cb0bdd84d 100755 --- a/challenge-024/duane-powell/perl5/ch-2.pl +++ b/challenge-024/duane-powell/perl5/ch-2.pl @@ -74,16 +74,12 @@ sub new { sub thaw { my $self = shift; # Retrieve the Storable object from disk and return it. - if (-e $self->{storable_index}) { - my $i = retrieve($self->{storable_index}); - print "No files have been indexed yet.\n" unless ($i->{file_id}); - return $i; - } else { + unless (-e $self->{storable_index}) { # First call ever, so create the Storable. print "No files have been indexed yet.\n"; - store $self, $self->{storable_index}; - exit; + $self->freeze(); } + return retrieve($self->{storable_index}); } sub freeze { -- cgit