From 73353096b89e9192eb815e1713e27c0dad11d5f5 Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jed@candelatech.com>
Date: Wed, 27 Nov 2019 13:20:21 -0800
Subject: [PATCH] lf_portmod: updates cli switches for mgr-port

---
 lf_portmod.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lf_portmod.pl b/lf_portmod.pl
index b1f7bf14..e25f3aca 100755
--- a/lf_portmod.pl
+++ b/lf_portmod.pl
@@ -20,7 +20,11 @@ package main;
 use strict;
 use warnings;
 use diagnostics;
-#use Carp;
+if ((defined $ENV{'DEBUG'}) && ($ENV{'DEBUG'} eq "1")) {
+   use Carp;
+   $SIG{ __DIE__  } = sub { Carp::confess( @_ ) };
+   $SIG{ __WARN__  } = sub { Carp::confess( @_ ) };
+}
 # Un-buffer output
 $| = 1;
 
@@ -184,7 +188,7 @@ GetOptions
  'cmd=s'             => \$cmd,
  'cli_cmd=s'         => \$cli_cmd,
  'manager|mgr|m=s'   => \$lfmgr_host,
- 'manager_port=i'    => \$lfmgr_port,
+ 'manager_port|mgr_port|mp:i' => \$lfmgr_port,
  'load_db|load=s'    => \$load,
  'quiet|q=s'         => \$::quiet,
  'resource|card|res|r=i' => \$card,