Is this An Error

**Jim Gibson** · Jul 19 '05, 05:15 AM

Re: Is this An Error

In article <1102102593.YUY DyY5Y87Wus0oq+z I9wg@tng>, Ricky_newbie
<Ricky_newbie.1 gpklp@mail.code comments.com> wrote:
[color=blue]
> Hello,
> I don't know any thing about perl and i don't even under stand
> the script. I am SQL Server DBA. One of my Developer(Not working any
> more) wrote the perl script and i created a SQL job. My sql job returns
> success, but when i see the log this is what it displays. Just wondering
> If this is an error message? If yes, what could be the cause and how to
> resolve it. Now that the developer is not working, i have to fix it.
>
>
> Name "Win32::IPC::pa ck" used only once: possible typo at C:\Program
> Files\perl\lib/Win32/IPC.pm line 51. Name "Win32::Process ::pack" used
> only once: possible typo at C:\Program Files\perl\lib/Win32/Process.pm
> line 120. Name "main::msgp ath" used only once: possible typo at[/color]

These are warning messages that a variable (e.g. $pack in package
Win32::IPC) appears only once. This may happen if a programmer has
mis-spelled a variable name or, as it appears in this case, the
programmer is really using a variable on one line, perhaps as a
placeholder. Looking at the code for Win32::IPC on CPAN (www.cpan.org),
we see this:

sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
# XS function.
my($constname);
($constname = $AUTOLOAD) =~ s/.*:://;
local $! = 0;
my $val = constant($const name);
if ($! != 0) {
my ($pack,$file,$l ine) = caller;
die "Your vendor has not defined Win32::IPC macro $constname,
used at $file line $line.";
}
eval "sub $AUTOLOAD { $val }";
goto &$AUTOLOAD;
} # end AUTOLOAD

The caller function returns an array (package, file, line). Thus, the
$pack variable receives the package name of the caller and is otherwise
ignored. The author of this package probably should have used the line

my( undef, $file, $line ) = caller;

instead to avoid the warning message.

You can safely ignore the first two error messages, because the
Win32::Process package has the same defect.

The other warings should be investigated in the same way, but may prove
to be as benign as the first two.

FYI: this newsgroup is defunct; try comp.lang.perl. misc in the future
for general Perl questions, or comp.lang.perl. modules for questions
about specific modules.

Is this An Error

Is this An Error

Comment