Challenge-049 solutions by saiftynet submitted using EZPWC

1 files changed, 1 insertions, 1 deletions

diff --git a/challenge-049/saiftynet/perl/ch-1.pl b/challenge-049/saiftynet/perl/ch-1.pl
index b9598fa2c6..956d951ef3 100644
--- a/challenge-049/saiftynet/perl/ch-1.pl
+++ b/challenge-049/saiftynet/perl/ch-1.pl
@@ -20,7 +20,7 @@ else{              # interactive operation starts if no commandline parameter
     while (1){
       print "Enter a number to process, or a non-number to quit >>";
       chomp( $input = <STDIN>);
-      last if $input=~/[^\d]/;
+      last if not $input or $input=~/[^\d]/;
       method2($input);
     };
 }