Let Getopt::Long do the input validation for port.

diff --git a/bin/mythtv-status b/bin/mythtv-status
index cc674fc5987ec834a45d4a2dfc191015771e8b03..cdd7100624be7cedc4353665dad045266f9852a0 100755 (executable)
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -38,7 +38,7 @@ GetOptions(
   'd|descripton' => \$description,
   'e|episode'    => \$episode,
   'h|host=s'     => \$host,
-  'p|port=s'     => \$port,
+  'p|port=i'     => \$port,
   'v|version'    => \&print_version,
   'email=s@'     => \@email,
   'email-only-on-conflict' => \$email_only_on_conflict,
@@ -61,9 +61,6 @@ GetOptions(
 pod2usage(verbose => 1)
   if defined $help;
 
-die "Sorry, port isn't a number.\n"
-  if $port !~ /^\d+$/;
-
 # Get the email address into a format we can use.
 @email = split(',', join(',', @email));