[Nmap-scanner-general] Nmap::Scanner XML.pm change

[Will S. <Wi...@ho...>]

Hello,

I use this module to perform regular scans of our network using perl =
5.6.1 on FreeBSD (currently 5.2.1-RELEASE). Every time the scans run I =
get output like:

Use of uninitialized value in numeric gt (>) at =
/usr/local/lib/perl5/site_perl/5.6.1/Nmap/Scanner/Backend/XML.pm line =
157.

I have 'fixed' this, but I don't know if what I did will cause things to =
work incorrectly. I think anything greater than zero counts as 'true' =
for Perl so it ought to work ok. Here is my patch:

--- XML.pm.orig Fri Feb 27 11:12:58 2004
+++ XML.pm      Fri Feb 27 11:09:14 2004
@@ -154,7 +154,7 @@
             $self->{PORT_COUNT}++;
             undef $self->{NMAP_PORT};
         } elsif ($el->{Name} eq 'ports') {
-            unless ($self->{PORT_COUNT} > 0) {
+            unless ($self->{PORT_COUNT}) {
                 $self->{NMAP_BACKEND}->notify_no_ports_open(
                     $self->{NMAP_HOST}, =
$self->{NMAP_HOST}->extra_ports()
                 );

_____________________________________________
Will Saxon
Systems Programmer - Network Services
Department of Housing and Residence Education
University of Florida
Email: wi...@ho...
Phone: (352) 392-2171 x10148