I had tried with the correct case - sorry about the typo.
Ok here is my perl script:
##################
#! /usr/bin/perl
BEGIN { push @INC,"/ws/testdir" };
use strict;
use Header qw( wrap_package );
use Env;
#print "$ENV{'PATH'}";
sub test {
print "test"
}
my $iso="stage.iso";
my $product="final.iso";
my $MAGIC_NUM="abcd";
test
my ( $header_filename ) = Header::wrap_package(
$iso,
$product,
$MAGIC_NUM,
10000,
"KEY_TLV_PACKAGE_COMPATIBILITY",
"FRU_TEST_TYPE"
)
########################
Here is the module:Header.pm
package MCP::Header;
use strict;
use warnings;
use Data:
umper;
use Digest::SHA;
use File::Basename;
use File::Spec::Functions qw( rel2abs );
use Fcntl qw( :seek );
use Util::Misc;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw( wrap_package );
our @EXPORT_OK = qw();
<snip>
sub wrap_package {
...
}
###########
I copied Header.pm into my local directory /ws/testdir and am trying to execute the perl script to no avail.
What am I missing ?