[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