Rt36730 num of fields

ChangeLog

@@ -1,4 +1,7 @@
-2013-09-17 Michiel Beijen, Patrick Galbraith, DBI/DBD community
+2013-??-?? Patrick Galbraith, Michiel Beijen, DBI/DBD community (4.025)
+* Fix example in POD doc for NUM_OF_FIELDS - RT36730, reported by tapoutmma.
+
+2013-09-17 Michiel Beijen, Patrick Galbraith, DBI/DBD community (4.024)
 * Fix memory leak if mysql_server_prepare is enabled - RT76462 - Masahiro Chiba
 * Small dist improvements:  Michiel Beijen <michiel.beijen@otrs.com>
 * Undefined $DBI::errstr on execute fail on Windows: Michiel Beijen <michiel.beijen@otrs.com>

eg/proc_example1.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl
 
 use strict;
+use warnings;
+
 use DBI;
 
 my $db='test';
@@ -34,7 +36,7 @@
 $sth->execute || die DBI::err.": ".$DBI::errstr;
 do {
   print "\nResult set ".++$i."\n---------------------------------------\n\n";
-  for my $colno (0..$sth->{NUM_OF_FIELDS}) {
+  for my $colno (0..$sth->{NUM_OF_FIELDS}-1) {
     print $sth->{NAME}->[$colno]."\t";
   }
   print "\n";

eg/proc_example2.pl

@@ -1,6 +1,8 @@
 #!/usr/bin/perl
 
 use strict;
+use warnings;
+
 use DBI;
 use Data::Dumper;
 
@@ -43,7 +45,7 @@ BEGIN
  $sth->execute || die DBI::err.": ".$DBI::errstr;
  do {
   print "\nResult set ".++$i."\n---------------------------------------\n\n";
-  for my $colno (0..$sth->{NUM_OF_FIELDS}) {
+  for my $colno (0..$sth->{NUM_OF_FIELDS}-1) {
     print $sth->{NAME}->[$colno]."\t";
   }
   print "\n";

lib/DBD/mysql.pm

@@ -1501,13 +1501,13 @@ header of table names together with all rows:
       die "Error:" . $sth->errstr . "\n";
   }
   my $names = $sth->{'NAME'};
-  my $numFields = $sth->{'NUM_OF_FIELDS'};
-  for (my $i = 0;  $i < $numFields;  $i++) {
+  my $numFields = $sth->{'NUM_OF_FIELDS'} - 1;
+  for my $i ( 0..$numFields ) {
       printf("%s%s", $i ? "," : "", $$names[$i]);
   }
   print "\n";
   while (my $ref = $sth->fetchrow_arrayref) {
-      for (my $i = 0;  $i < $numFields;  $i++) {
+      for my $i ( 0..$numFields ) {
 	  printf("%s%s", $i ? "," : "", $$ref[$i]);
       }
       print "\n";
@@ -1764,7 +1764,7 @@ An example would be:
   $sth->execute || die DBI::err.": ".$DBI::errstr; $rowset=0;
   do {
     print "\nRowset ".++$i."\n---------------------------------------\n\n";
-    foreach $colno (0..$sth->{NUM_OF_FIELDS}) {
+    foreach $colno (0..$sth->{NUM_OF_FIELDS}-1) {
       print $sth->{NAME}->[$colno]."\t";
     }
     print "\n";