Add "or again" to "perhaps you need to call execute first" errstr for in-Active sth

Author: timbunce

DBI.pm

@@ -1888,7 +1888,7 @@ sub _new_sth {	# called by DBD::<drivername>::db::prepare)
 	my $fields = $sth->FETCH('NUM_OF_FIELDS') || 0;
 	if ($fields <= 0 && !$sth->{Active}) {
 	    return $sth->set_err($DBI::stderr, "Statement has no result columns to bind"
-		    ." (perhaps you need to successfully call execute first)");
+		    ." (perhaps you need to successfully call execute first, or again)");
 	}
 	# Backwards compatibility for old-style call with attribute hash
 	# ref as first arg. Skip arg if undef or a hash ref.

DBI.xs

@@ -1856,7 +1856,7 @@ dbih_sth_bind_col(SV *sth, SV *col, SV *ref, SV *attribs)
         PERL_UNUSED_VAR(attribs);
         croak("Statement has no result columns to bind%s",
             DBIc_ACTIVE(imp_sth)
-                ? "" : " (perhaps you need to call execute first)");
+                ? "" : " (perhaps you need to successfully call execute first, or again)");
     }
 
     if ( (av = DBIc_FIELDS_AV(imp_sth)) == Nullav)