annoying perl error on every invocation of dcm.pl
yshollander
15-07-2009 15:21:10
# /opt/ona/bin/dcm.pl -l admin -p admin -r interface_add ip=192.168.1.220 host=jc1-dhcp20.mydomain.com
Use of uninitialized value in numeric eq (==) at /usr/lib/perl5/vendor_perl/5.8.8/IO/Socket/SSL.pm line 1185.
...
[ rest of output ]
I tried explicitly disabling ssl in dcm.pl and dcm.conf, but no dice.
Any ideas?
Thanks
Isaac
Use of uninitialized value in numeric eq (==) at /usr/lib/perl5/vendor_perl/5.8.8/IO/Socket/SSL.pm line 1185.
...
[ rest of output ]
I tried explicitly disabling ssl in dcm.pl and dcm.conf, but no dice.
Any ideas?
Thanks
Isaac
Matt
15-07-2009 16:04:12
yep I have gotten this error as well. I need to release an updated version of dcm.pl that fixes a few things.. In the mean time, anyone that gets this can do the following:
1. remove -w from the first line.
2. add "use warnings;" just below the use strict; line
here is a diff:
Index: dcm.pl
===================================================================
--- dcm.pl (revision 35)
+++ dcm.pl (working copy)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
##############################################################################
## dcm.pl
## Written by: Brandon Zehm <[email protected]>
@@ -150,6 +150,7 @@
##
##############################################################################
use strict;
+use warnings;
use IO::Socket;
1. remove -w from the first line.
2. add "use warnings;" just below the use strict; line
here is a diff:
Index: dcm.pl
===================================================================
--- dcm.pl (revision 35)
+++ dcm.pl (working copy)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
##############################################################################
## dcm.pl
## Written by: Brandon Zehm <[email protected]>
@@ -150,6 +150,7 @@
##
##############################################################################
use strict;
+use warnings;
use IO::Socket;