[ID 20000112.002] "Used only once" doesn't recognize arguement passing

[Kenneth Kron <kenneth_kron@icgcomm.com>]

The following code fragment incorrectly reports NPORTS only used once
when it is passed to a subroutine

perl -cw
open (NPORTS, "<MS_Ports.txt") ||
  &log("Master Pop port list not available", ":$!", $Notify) ;
%NPops = &GetPortList(NPORTS) ;

Name "main::NPORTS" used only once: possible typo at - line 1.
Name "main::NPops" used only once: possible typo at - line 3.
Name "main::Notify" used only once: possible typo at - line 2.

bash-2.03$ perl -v

This is perl, version 5.005_03 built for sun4-solaris

Copyright 1987-1999, Larry Wall

Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5.0 source
kit.

---

Follow-Ups from:

Jeff Pinyan <jeffp@crusoe.net>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---