Select Code to Download

--- x    2009-09-29 21:00:01.392812366 +0200
+++ perl.scrap.mime-lite-mail-sending    2009-09-29 17:56:51.900791614
+ +0200
...
     
    $message->send('smtp','000.000.000.000',
                     Debug=>1,Timeout=>60,Port=>26);

--- y.orig    2009-09-29 21:11:50.544939894 +0200
+++ y    2009-09-29 21:31:44.072812281 +0200
...
+        # not reached, as we die due to lack of eval{} around send an
+yway!?
+        die "send returned not true" if not $rc;
+}