diff options
| -rwxr-xr-x | challenge-024/duane-powell/perl5/ch-2.pl | 10 |
1 files 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 { |