(ValidInt) kill obvious warnings

1 files changed, 2 insertions, 3 deletions

diff --git a/userdrake b/userdrake
index 4b292da..688fc5e 100755
--- a/userdrake
+++ b/userdrake
@@ -783,9 +783,8 @@ sub Edit {
     $w->main
 }
 sub ValidInt {
-    my $m = 1;
-    foreach my $i (@_) { $i =~ /\d+/ or $m = 0 and last};
-    return $m;
+    foreach my $i (@_) { $i =~ /\d+/ or return 0 };
+    return 1;
 }
 sub ConvTime {
     my ($day, $month, $year) = @_;