Clean up thaw() method

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 {