[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Net::SMTP and Big/PPC MacPerl



Hello

The script below works flawlessly on my 8500 using MacPerl 5.1.3r2. But
the same script, running on a Q610 with a 'Big' MacPerl of same version
dies horribly in MacsBug. Lines below appear in the MacPerl window, just
before all goes white (I've gotta toggle from MacsBug to the MacPerl
window to read this bit.):

    # Callback called exit
        File 'Leonardo:Skunkwerks:smtpr'; Line 435
    # END failed -- cleanup aborted            ~~~ * script only has
        File 'Leonardo:Skunkwerks:smtpr'; Line 211   16 lines?! Is this
    # Callback called exit                     ~~~   ref'ing lines in
        File 'Leonardo:Skunkwerks:smtpr'; Line 211   another module?
    # BEGIN failed -- compilation aborted      ~~~
        File 'Leonardo:Skunkwerks:smtpr'; Line 3
    Out of Memory!

Both systems have, near as I can tell, *identical* lib directories, with
identical paths configured. Only difference is the PPC/Big application
itself.

And speaking of ways to croak 8-) , I've noticed that scripts run in the
PPC version die very nicely--for example, when I'm trying to use
LWP::UserAgent. Scripts output what went wrong to the MacPerl window,
and leave MacPerl (and system) stable and ready for another go. But
scripts that tank in the Big version output to the MacPerl window, then
proceed instantaneously to MacsBug (from which 'es', then, seems the
only means of recovery).

What gives?

Anyway, here's the Net::SMTP script (smtpr)...

<---------------------------------------------------------------------->

#!perl

use Net::SMTP;

open(LINES,"Averroes:Desktop Folder:mail:boork boork boork") or die "can't
open file";
@lines = <LINES>; # the newlines are needed
unshift(@lines,"From: guinn\@mail.utexas.edu\n",
               "To: guinn\@mail.utexas.edu\n",
               "Subject:Stuff\n","\n");
$me = `hostname`;chomp($me);
$mail = Net::SMTP->new("mail.utexas.edu",Debug => 1);
$mail->hello($me);
$mail->mail("guinn\@mail.utexas.edu");
$mail->to("guinn\@mail.utexas.edu");
$mail->data(@lines);
$mail->quit;

<---------------------------------------------------------------------->

Any insight much appreciated.

Thx

tpg

--

Tim Guinn                  | guinn@mail.utexas.edu
LAN Administrator          | http://www.utexas.edu/admin/purchasing/
UTexas @ Austin Purchasing | v 512.471.2855           f 512.471.7745