[boulder.pm] Where is my module?
Daniel Moore
moore at xor.com
Sun Jun 11 14:38:25 CDT 2000
On Sun, 11 Jun 2000, Robert L. Harris wrote:
>
>
> I cut/paste this in exactly as you have it. No change to the output when
> I run the script. When I had typo'd the module name originally (forgot the .pm)
> it screamed up a storm, so I'm sure it's finding the module.
>
> It just can't find the function.
>
Hi,
It's good to know that the module is being found.
Can we see how you're calling newFileArrival()?
Is newFileArrival in package main? Have you tried calling
&LOADgen3::newFileArrival()?
Thanks,
Dan
>
> Thus spake Daniel Moore (moore at xor.com):
>
> > On Sun, 11 Jun 2000, Robert L. Harris wrote:
> >
> > >
> > >
> > > I get this:
> > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line
> > > 361 (#1)
> > >
> > > (F) The subroutine indicated hasn't been defined, or if it was, it
> > > has since been undefined.
> > >
> > > Uncaught exception from user code:
> > > Undefined subroutine &main::newFileArrival called at ./DefMungeSplit.pl line 361.
> > > main::GetFileID('../DEF.EBCDIC-06-07-2000-10-00.gz') called at ./DefMungeSplit.pl line 106
> > >
> > >
> > > The subroutine, newFileArrival is defined in a module:
> > >
> > > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm";
> > > eval (require $LoadGen3Script);
> > >
> > > I can vi the LOADgen3.pm file and see that the subroutine is there.
> > > I don't get any other errors durring execution, yet.
> > >
> > >
> > > Help?
> >
> > Are you checking $@ for errors after you require the module?
> >
> > e.g.
> > my ($LoadGen3Script)="$ENV{SCRIPT}"."/"."LOADgen3.pm";
> > eval (require $LoadGen3Script);
> > if ($@) {
> > die "error in loading script: $@";
> > }
> >
> > Dan
>
>
>
> :wq!
> ---------------------------------------------------------------------------
> Robert L. Harris | Micros~1 :
> Senior System Engineer | For when quality, reliability
> at RnD Consulting | and security just aren't
> \_ that important!
> DISCLAIMER:
> These are MY OPINIONS ALONE. I speak for no-one else.
> FYI:
> perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'
>
>
Dan Moore
Programmer
XOR Inc.
More information about the Boulder-pm
mailing list