From 485b01b20fe946871801e19d6b7951aebdadbf5d Mon Sep 17 00:00:00 2001
From: saiftynet <saiftynet@gmail.com>
Date: Wed, 26 Feb 2020 21:04:59 +0000
Subject: Challenge-049 solutions by saiftynet submitted using EZPWC

---
 challenge-049/saiftynet/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
     };
 }
-- 
cgit