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
