in reply to Re: Modules included more than once
in thread Modules included more than once

I've done a bit more digging, and it appears that there is a circular include going on: 
package OBJECT_SERVICES;
use SUPPORT;
use SUPPORT qw( %typeConvert %enumeratedTypes);

[download]
and 
package SUPPORT;
use OBJECT_SERVICES;

[download]
I'm not sure how to get round this, as both packages use functions from the other package. I know this looks terrible.
Would it make sense to make another package containing the functions used by both packages, and use that in both, rather than the way it's done now?
Thanks,
Greg.

Replies are listed 'Best First'.
Re: Re: Re: Modules included more than once
by dada (Chaplain) on Aug 22, 2002 at 11:28 UTC
    the problem is not in circular includes. circular includes are just fine. I suspect the problem is in: 
    package OBJECT_SERVICES;
use SUPPORT;
use SUPPORT qw( %typeConvert %enumeratedTypes);

    [download]
    why do you use SUPPORT twice? the second use should be enough.

    cheers,
    Aldo

    King of Laziness, Wizard of Impatience, Lord of Hubris

[reply]
[d/l]
      It's probably cause he's doing stuff he shouldn't be doing. 
      perl -Mstrict -w -MCGI -MCGI=*table -e 1

perl -Mstrict -w -MCGI::Carp -MCarp -e 1

      [download]
      The Carp does it cause has to perform magic. That is why you should use warnings; 
      perl -Mstrict -Mwarnings -MCGI::Carp -MCarp -e 1

      [download]

      ____________________________________________________
      ** The Third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]
[select]
      I suspect that there is something going on with my circular includes, as I do not get the warning if I remove one half of circle. I think the problem is caused by 'use' commands in each module interacting badly with 'use' commands in the super-package that ties everything together. As the modules are never used except through this, I have removed all the redundant calls, and the warnings seem to have disappeared.
      Thanks to everyone for their help!
[reply]

In Section Seekers of Perl Wisdom