Thanks, applied.
Tim.
On Mon, Sep 09, 2002 at 06:16:04PM -0700, Michael A Chase wrote:
> Somehow the else{} block around the actions to be taken when PL/SQL
> compile errors occur got lost. This patch puts it back.
>
> --
> Mac :})
> ** I normally forward private questions to the appropriate mail list. **
> Ask Smarter: http://www.tuxedo.org/~esr/faqs/smart-questions.html
> Give a hobbit a fish and he eats fish for a day.
> Give a hobbit a ring and he eats fish for an age.
> --- Oracle.pm-orig 2001-09-02 11:03:12.000000000 -0700
> +++ Oracle.pm 2002-09-09 18:03:48.000000000 -0700
> @@ -1133,10 +1133,11 @@ Example:
> END; } ) ) {} # Statement succeeded
> }
> elsif ( 6550 != $dbh->err ) { die $dbh->errstr; } # Utter failure
> - my $msg = $dbh->func( 'plsql_errstr' );
> - die $dbh->errstr if ! defined $msg;
> - die $msg if $msg;
> -
> + else {
> + my $msg = $dbh->func( 'plsql_errstr' );
> + die $dbh->errstr if ! defined $msg;
> + die $msg if $msg;
> + }
>
> =head2 dbms_output_enable / dbms_output_put / dbms_output_get
>
