Re(4): [MacPerl] Glue::WebSTAR_301

[Chris Nandor <pudge@pobox.com>]

At 13.02 -0400 1998.10.08, Josh Gemmell wrote:
>pudge@pobox.com,Internet writes:
>>
>>Hm.  So sending a 0 still does not work properly?  If I were you, I would
>>try a couple of things: first, use Data::Dumper to print the
>>Mac::AppleEvents::Simple object that you are using:
>>
>>  $event = $webstar->Suspend_Logging( 0 );
>>  print $event->{EVENT}, "\n";
>>  print $event->{REPLY}, "\n";
>>
>>This will show what your sent event looks like (and the reply).  Then
>>perhaps we can look into debugging it more.
>
>Here it is:
>>
>EVENT: 'WWW_'\flog{}

That's what I thought.  I could not find the problem at first, though I was
staring it in the face.  Notice that the event has no parameters at all,
not even a false one.  :-)  On line 82 (of my version, should be the same
in yours), change this line:

    if ($dobj) {

to this:

    if (defined($dobj)) {

Bitten in the butt by "0 but true".  That should fix the problems.

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch