Some of the packages have comipler errors in them.foreach my $invalidPackage ( @invalidPackages ) { my $compCmd = <<SQL; ALTER PACKAGE $dbuser.$invalidPackage COMPILE DEBUG BODY SQL print "Executing $compCmd"; $sth = $dbh->prepare($compCmd) or die $ARGV[0] . "[$compCmd] " . $dbh->errstr; $sth->execute(); while ( my @r = $sth->fetchrow_array ) { print ">>>@r"; } $sth->finish || die; }
print ">>>@r";I am wrong. What should I have done?
In reply to Get ouput from alter package statement. by LameNerd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |