From kenneth_kron@icgcomm.com

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.

From [Unknown Contact. See original ticket]

On Jan 12, Kenneth Kron said​:

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

Probably because Perl expects the NPORTS filehandle to be passed as
*NPORTS or \*NPORTS, unless the GetPortList function has been prototyped
to take a glob as its first argument.

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.

--

  MIDN 4/C PINYAN, USNR, NROTCURPI http​://www.pobox.com/~japhy/
  jeff pinyan​: japhy@​pobox.com perl stuff​: japhy+perl@​pobox.com
  "The Art of Perl" http​://www.pobox.com/~japhy/book/
  CPAN ID​: PINYAN http​://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
  PerlMonth - An Online Perl Magazine http​://www.perlmonth.com/

From @TimToady

japhy@​pobox.com writes​:
: On Jan 12, Kenneth Kron said​:
:
: > The following code fragment incorrectly reports NPORTS only used once
: > when it is passed to a subroutine
:
: Probably because Perl expects the NPORTS filehandle to be passed as
: *NPORTS or \*NPORTS, unless the GetPortList function has been prototyped
: to take a glob as its first argument.

Even with a prototype, calling the function using & would defeat it.
So what you're basically doing is passing a bareword (an unquoted string),
that just happens to get interpreted later as an indirect file handle.
Note that under "use strict" you're not allowed to use a bareword that
way at all. If you ever plan to add "use strict", start passing your
filehandles as *NPORTS or \*NPORTS now, or you'll have a bunch of cleanup
to do later.

Larry