I keep getting this error and it drive me nuts. ('Use of uninitialized value in string eq' )
i'll add a snippet from my code which produces this error:
use warnings;
use File::Copy qw(copy);
use Net::Domain qw(hostname hostfqdn hostdomain);
use File::chmod;
use Config::IniFiles;
use File::Remove qw(remove);
my $missingPatch = "no";
foreach $patch (@patches)
{
$showrev = `showrev -p | grep \"Patch: $patch\"`;
if ( length ($showrev) == 0 ) # meaning the patch isn't installed
{
...............
if ( exists $installedPatch[1] )
{ ($instPatchID, $instPatchVer) = split(/-/, $installedPatch[1]); }
if ( ( exists $patchName[1] ) && ($patchName[1] lt $instPatchVer ) )
{
........
}
else
{
......
$missingPatch = "yes";
}
}
}
if ( $missingPatch =~ m/yes/ ) --- > this is where the error occurs. (i've tried also $missingPatch eq 1) or '1' or "1" ... .
{ ...... }
I can't understand why perl shouts about this, since this var has been initialized.
(also tried removing use strict)
thanks,
Eyal Edri | System & Security Engineer | [EMAIL PROTECTED] Communication.
_______________________________________________ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs