OpenNetAdmin

Track. Automate. Configure.

Home About Features Community Develop
Download this project as a tar.gz file

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

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;