Re: [MacPerl] Script works with debugger but .....

[jmanley@metronet.com (Jim Manley)]

-----BEGIN PGP SIGNED MESSAGE-----

>jmanley@metronet.com (Jim Manley) wrote:
>> a strange problem with the script on pgs 20 - 21.  (I've
>> reproduced the part I'm having trouble with below.)
>>
>> print "What is your name? ";
>> $name = <STDIN>;
>> chop($name);
>> if ($name =~ /^jim\b/i) {
>>     print "Hello, Jim! How good of you to be here!\n";
>> } else {
>>
>> When I run the script without the debugger, it executes the first
>> print statement properly.  When I enter "Jim", the script exits
>> but does not execute the second print statement.
>>
>> If I run the script with the debugger, it runs as expected.
>>
>> Anyone have any clues?
>
>The code is fine (works flawlessly in perl 4 on a Sun), but I agree
>that it exhibits the problem you describe under MacPerl 5.05r1m.
>Actually, it looks like it works correctly the first time, but if you
>run it again without restarting MacPerl, then only the prompt string is
>printed, no matter what you type in response.
>
You're correct.  Another person suggested I put

        select( (select(STDOUT), $|)[0] );

at the head of the script but that didn't make any difference.

I'm new at this and to this mailing list so tell me, does this constitute
a bug that should be sent back to Matthias Ulrich Neeracher?


Just for grins, I uploaded the program to my ISP and ran it on an HP
using HP-UX 9.01 and Perl5.  It worked there but displayed some other
interesting problems.

I attempted to establish a dbm fileset using the following:

        dbmopen(%last_good,"lastdb",0666);
        $last_good{$name} = time;
        dbmclose(%last_good);

When I ran the script by itself, it failed to create the dbm fileset.
When I ran it using "perl -d script_name" and single stepped through
it, it worked as expected.

Something screwy going on with the debugger?

Jim Manley
jmanley@metronet.com
http://www.metronet.com/~jmanley
Finger for PGP Public Key


-----BEGIN PGP SIGNATURE-----
Version: 2.6.2

iQCVAwUBMQsgPivYMV4IyPatAQGmYwP+KdTkwP32wqK3xGHj8JOljOLVZ+iSwP0R
zR8Rn7hOeBSuN0Lb/TzNy9mQNYjqN6jv0v6v5jv/4He77a0gejEfbTsh+EJlruLm
qaLtmbXni6E13+bbnserFbc+9wBDkXhzDixPxcGP3C0ElZESC++qZY7scypYD666
zzw0XokanDU=
=IH+L
-----END PGP SIGNATURE-----