diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-09-04 21:24:20 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-09-04 21:24:20 +0100 |
| commit | 5990cedcae039fa36cdd979e9f2e42af843bdc35 (patch) | |
| tree | 9e309b8d7f001e5abfc214adc1e7b9215105fd77 /challenge-024 | |
| parent | 520d5f9e430ef5a16d009ca3ae9d546f16a0ae84 (diff) | |
| parent | 6c08becf4ff5924df5bc81de10e35145e5528b6f (diff) | |
| download | perlweeklychallenge-club-5990cedcae039fa36cdd979e9f2e42af843bdc35.tar.gz perlweeklychallenge-club-5990cedcae039fa36cdd979e9f2e42af843bdc35.tar.bz2 perlweeklychallenge-club-5990cedcae039fa36cdd979e9f2e42af843bdc35.zip | |
Merge pull request #598 from duanepowell/pwc24
Clean up thaw() method
Diffstat (limited to 'challenge-024')
| -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 { |