Re: Am I going nutts ? - read before answering!

2001-03-08 Thread Leo Lapworth

On Thu, Mar 08, 2001 at 02:59:27PM +, Robert Price wrote:
 I think the answer is that both the modules where the BEGINS are called
 twice have "use" in them. "use" means "BEGIN {require Module}", so BEGIN is
 being called once when the module is entered, and once when it is used. 
 
 Rob
 
- SNIP -

Fraid not.. tried moving the use out of the BEGIN before and it
made no difference:

package LTest;

use Test2;

BEGIN {
warn "Test is beginning\n";
}

print "Here\n";

1;


Thanks

Leo



Re: Am I going nutts ? - read before answering!

2001-03-08 Thread Robert Price

At 02:52 PM 3/8/01 +, you wrote:
On Thu, Mar 08, 2001 at 02:59:27PM +, Robert Price wrote:
 I think the answer is that both the modules where the BEGINS are called
 twice have "use" in them. "use" means "BEGIN {require Module}", so BEGIN is
 being called once when the module is entered, and once when it is used. 
 
 Rob
 
- SNIP -

Fraid not.. tried moving the use out of the BEGIN before and it
made no difference:

package LTest;

use Test2;

BEGIN {
warn "Test is beginning\n";
}

[snip]

But you are still calling "use", and as I said earlier, that means there
are still 2 BEGIN blocks, so both are being called. Test2 only has the one
BEGIN call because it doesn't try to use. 

For example, your code is roughly the same as...

package LTest;

BEGIN {require Test2};

BEGIN {
warn "Test is beginning\n";
}


So you can see there are two BEGIN blocks that are being called.

Or am I talking out of my arse? :-)


Rob

--
Robert Price - Technical Manager - EMAP Digital Travel  | Tel: 0207 3092711
Priory Court, 30-32 Farringdon Lane, London, EC1R 3AW   | Fax: 0207 3092718



Re: Am I going nutts ? - read before answering!

2001-03-08 Thread Leo Lapworth

Oh, actually do you mean it is the same at:

pageage LTest;

BEGIN {require Test2}
BEGIN { warn "." }

print "Here\n"

1;

Ok, that kind'a make sence..

Cheers

Leo - who is slowly getting there.


On Thu, Mar 08, 2001 at 02:52:48PM +, Leo Lapworth wrote:
 On Thu, Mar 08, 2001 at 02:59:27PM +, Robert Price wrote:
  I think the answer is that both the modules where the BEGINS are called
  twice have "use" in them. "use" means "BEGIN {require Module}", so BEGIN is
  being called once when the module is entered, and once when it is used. 
  
  Rob
  
 - SNIP -
 
 Fraid not.. tried moving the use out of the BEGIN before and it
 made no difference:
 
 package LTest;
 
 use Test2;
 
 BEGIN {
 warn "Test is beginning\n";
 }
 
 print "Here\n";
 
 1;
 
 
 Thanks
 
 Leo
 



Re: Am I going nutts ? - read before answering!

2001-03-08 Thread Philip Newton

Leo Lapworth wrote:
 BEGIN {

You forgot here: warn "In A.D. 2101\n";

 warn "Test is beginning\n";
 }
 
 print "Here\n";

And this should be 'print "What happen?\n";'.

Cheers,
Phi "SCNR" lip
-- 
Philip Newton [EMAIL PROTECTED]
All opinions are my own, not my employer's.
If you're not part of the solution, you're part of the precipitate.



Re: Am I going nutts ? - read before answering!

2001-03-08 Thread Mark Fowler

 Yup, that's right. So to get it to only have the one call, change your
 "use" to a require and put it in the BEGIN block.

nitpick number="1"

use fred;

Will also call fred-import(), so you might want to emulate that too.

/nitpick

nitpick number="2" type="lesser"

 --
 Robert Price - Technical Manager - EMAP Digital Travel  | Tel: 0207 3092711
 Priory Court, 30-32 Farringdon Lane, London, EC1R 3AW   | Fax: 0207 3092718
 

Shouldn't these numbers be formatted 020 7XXX

Later.

Mark.

/nitpick

-- 
print "\n",map{my$a="\n"if(length$_6);' 'x(36-length($_)/2)."$_\n$a"} (
   Name  = 'Mark Fowler',Title = 'Technology Developer'  ,
   Firm  = 'Profero Ltd',Web   = 'http://www.profero.com/'   ,
   Email = '[EMAIL PROTECTED]',   Phone = '+44 (0) 20 7700 9960'  )









Re: Am I going nutts ? - read before answering!

2001-03-08 Thread Robert Price

[snipped my numbers formated as 0207 XX]

Shouldn't these numbers be formatted 020 7XXX

Sh, it's designed to try to fool the sales bunnies.

Rob




Re: heretics meeting

2001-03-08 Thread David Cantrell

On Thu, Mar 08, 2001 at 04:15:20PM +, Greg McCarroll wrote:

 anyone fancy going early to this - i'm pretty exhausted with
 work and wouldn't mind getting an early pint in

I'll probably leave work in an hour or so.

-- 
David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david/

Breeding memes since 1973

** I read encrypted mail first, so encrypt if your message is important **

 PGP signature


Re: heretics meeting

2001-03-08 Thread Dave Hodgkinson

David Cantrell [EMAIL PROTECTED] writes:

 --neYutvxvOLaeuPCA
 Content-Type: text/plain; charset=us-ascii
 Content-Disposition: inline
 Content-Transfer-Encoding: quoted-printable
 
 On Thu, Mar 08, 2001 at 04:15:20PM +, Greg McCarroll wrote:
 
  anyone fancy going early to this - i'm pretty exhausted with
  work and wouldn't mind getting an early pint in
 
 I'll probably leave work in an hour or so.

Would it be Bad Voodoo to start drinking in Soho? ;-)

Dave // Has to get a train home tonight :-/

-- 
Dave Hodgkinson, http://www.hodgkinson.org
Editor-in-chief, The Highway Star   http://www.deep-purple.com
  Apache, mod_perl, MySQL, Sybase hired gun for, well, hire
  -



RE: Descrambling CSS w/ 7 Lines Of Perl

2001-03-08 Thread pmh

On Wed, 7 Mar 2001 17:02:39 -0800, Simon Batistoni wrote:
 Anyway, the guy who originally posted the perl code to the web is archiving
 as many copies of DeCSS as he can get his hands on, going as far as the rock
 song which uses the code as the lyrics:
 
 http://www.cs.cmu.edu/~dst/DeCSS/Gallery/

This includes the new way to get the source via the DNS, which still works, and 
doesn't use zone transfers:

for DVDs in Linux screw the MPAA and ; do dig $DVDs.z.zoy.org ; done | \
perl -ne 's/\.//g; print pack("H224",$1) if(/^x([^z]*)/)' | gunzip

-- 
Peter Haworth   [EMAIL PROTECTED]
Signature lost in transit.  We apologise for any inconvenience caused.



RPC stuff

2001-03-08 Thread Jonathan Peterson

What's the best way forward for RPC / distributed Perl stuff? I don't need
anything super complicated, but RPC::Simple seems to want to use Tk ?!




Jonathan PetersonIdeas Hub Ltd
(t) +44 (0)20 7487 1310
www.ideashub.com





Re: RPC stuff

2001-03-08 Thread Dean S Wilson

-Original Message-
From: Jonathan Peterson [EMAIL PROTECTED]


What's the best way forward for RPC / distributed Perl stuff? I don't
need
anything super complicated, but RPC::Simple seems to want to use Tk
?!


XML-RPC and SOAP are both interesting at the mo.

Homepage
http://www.xmlrpc.org/

XML-RPC perl tutorial.
http://www-106.ibm.com/developerworks/library/ws-xpc1/?dwzone=ws

SOAP::Lite tutorial.
http://home.cnet.com/webbuilding/0-7704-8-4874769-1.html

Although neither are really my field.

Dean (Must stay on topic...)
--
Perl Coder SecTech E-mail troll
Profanity is the one language all programmers understand.
   ---  Anon