Error in Perl2UCS.pm line 72

[s***@basf-it-services.com]

Hello all,
I want to check if a NLM is loaded or not with the following lines:

require Perl2UCS;
my $nlm = "firebrk.nlm";
my ($Copyright, $Date, $Description, $MajorVersion, $MinorVersion, $Name,
$Revision, $result, $error);
my $server = Perl2UCS->new("UCX:Server") or $error=$!;
if ($error)
{
$result = "2Can't create UCX:Server Object";
}
else
{
my $modules = $server->{"Modules"};
print "Is $nlm loaded?\n";
if ($modules->loaded($nlm))
{
print "$nlm is loaded!\n";
$module = $modules->Element($nlm);
($Copyright, $Date, $Description, $MajorVersion, $MinorVersion, $Name,
$Revision) = @{$module}
{"Copyright", "Date", "Description", "MajorVersion", "MinorVersion", "Name"
, "Revision"};
$result = "1$Name$config{SEPARATION}$Copyright$config{SEPARATION}
$Date$config{SEPARATION}$Description$config{SEPARATION}
$MajorVersion.$MinorVersion.$Revision";
}
else
{
$result = "3$nlm is not loaded";
}
}
print "Result: $result\n";

but run in line "if ($modules->loaded($nlm))" in the error:
"Error while calling method [(5) -10054 : Property or Method not found] at
sys:\perl\lib/Perl2UCS.pm line 72."

I tried it with Netware 6.5 SP3 and SP5.

Have anyone an idea?

Thanks Steffen

[Susan Perrin]

Hi

While I'd like to give you an answer, I can't. But since this post has
gotten kind of old, I thought I'd at least post to tell you that it works
for me (I happen to be using NW65 SP4). Would it help if I post a
config.txt so you can check versions?

Thanks
Susan