I have installed active state perl on windows 2000 professional operating system.
I copied all the modules required for running a perl script that I use quite often in unix.
This script creates a socket connection and then sends HL7 transactions to a port.
I get the following error when I run the script.
Can't locate object method "connect" via package "Hl7::Msg" (perhaps you forgot
to load "Hl7::Msg"?) at C:\Perl\lib/Hl7/Msg.pm line 18.
I checked the environment variable and I have it defined as follows:
0 C:\Perl\lib
1 C:\Perl\site\lib
2 c:/Perl/lib
3 c:/Perl/site/lib
4 .
It does find the module Msg.pm but it errors at following code.
sub connect {
my ($pkg, $host, $port, $type, $filename, $loopback) = @_;
my $VerticalTab = chr(11); # Vertical Tab character
my $FileSeperator = chr(28); # File Separator
my $conn = $pkg->SUPER::connect($host, $port, $type, $filename, $loopback);
die("Connection not established! Exiting...\n") unless defined($conn);
bless $conn, $pkg;
$conn->{start_of_msg} = $VerticalTab;
$conn->{end_of_msg} = $FileSeperator . "\r";
return $conn;
}
Why is it complaining about this?
I am running perl version 5.6.1.
Any help would be appreciated.
Thanks,
Nagesh Pai
