Return-Path: Delivered-To: apmail-perl-embperl-archive@www.apache.org Received: (qmail 71047 invoked from network); 22 Feb 2005 16:52:39 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur-2.apache.org with SMTP; 22 Feb 2005 16:52:39 -0000 Received: (qmail 99283 invoked by uid 500); 22 Feb 2005 16:52:38 -0000 Delivered-To: apmail-perl-embperl-archive@perl.apache.org Received: (qmail 99263 invoked by uid 500); 22 Feb 2005 16:52:38 -0000 Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: List-Post: Delivered-To: mailing list embperl@perl.apache.org Received: (qmail 99245 invoked by uid 99); 22 Feb 2005 16:52:37 -0000 X-ASF-Spam-Status: No, hits=0.1 required=10.0 tests=FORGED_RCVD_HELO X-Spam-Check-By: apache.org Received-SPF: pass (hermes.apache.org: local policy) Received: from c10.shuttle.de (HELO saturn.ecos.de) (194.95.226.10) by apache.org (qpsmtpd/0.28) with ESMTP; Tue, 22 Feb 2005 08:52:36 -0800 Received: from lnx1.i.ecos.de (unknown [194.95.226.11]) by saturn.ecos.de (Postfix) with ESMTP id 6C2C8D88B9; Tue, 22 Feb 2005 17:52:33 +0100 (MET) Received: from venus.gr.ecos.de (venus.gr.ecos.de [10.11.12.1]) by lnx1.i.ecos.de (Postfix) with ESMTP id BDA6B1C806D; Tue, 22 Feb 2005 17:52:33 +0100 (CET) From: Gerald Richter Organization: ecos gmbh To: embperl@perl.apache.org Subject: Re: [RESEND] Trapping errors Date: Tue, 22 Feb 2005 17:52:33 +0100 User-Agent: KMail/1.6.2 Cc: Robert Norris References: <20050217000729.GI21895@katsumi> In-Reply-To: <20050217000729.GI21895@katsumi> MIME-Version: 1.0 Content-Disposition: inline Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Message-Id: <200502221752.33532.richter@ecos.de> X-Virus-Checked: Checked X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N > > And then in base.epl, something like this: > > eval { Execute('*') }; > if($@) { > Execute('error.epl', $@); > } > Instead use Execute({inputfile => '*', options => Embperl::Constant::optReturnError, errors => \@errors}) ; if (@errors) { Execute (.... } Gerald --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org For additional commands, e-mail: embperl-help@perl.apache.org