Instead of presenting us with bits of isolated code, please provide an SSCCE that reproduces your problem and is written in such a way that we can run it and help you towards a solution.

I cannot reproduce the problem myself...

To try and get to the bottom of the problem, I have written this script:

#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use FindBin qw($RealBin);
my $safepath;
BEGIN {
    if ($RealBin =~ m!^(/home/username/uk/www)!) {
        $safepath = "$1/../lib";
    } else {
        die "Illegal use of software - visit www.example.com to use th
+is site";
    }
}
use lib "$safepath";

use Site::HTML;
use Site::Wayfinder;
use Bod::CRM;

use strict;
use warnings;

my $crm = Bod::CRM->new('test');

print "Content-type: text/plain\n\n";

my $db = '...';
my $un = '...';
my $pw = '...';

#####  Uncomment one line #####
#my $dbh = DBI->connect("dbi:mysql:$db:localhost:3306",$un,$pw) || die
+ "DB ERROR: " . $dbh->errstr;
my $dbh = $crm->db;

$dbh->do("CREATE TEMPORARY TABLE Temp_Test (
            idTest   INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
            fname    VARCHAR(40),
            nname    VARCHAR(40),
            sname    VARCHAR(60),
            email    VARCHAR(100),
            altEmail VARCHAR(100)
        )
        ENGINE MyISAM");

print "ERROR: " . $dbh->errstr if $dbh->err;

$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('
+Ian', 'Bod', 'Boddison', 'me\@example.com')");
$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('
+Boomer', 'Boo', 'Dog', 'dog\@example.com')");
$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('
+Oi', '', 'You', 'you\@example.com')");

my $query = $dbh->prepare("SELECT * FROM Temp_Test");
$query->execute;
$, = ' - ';
while (my @row = $query->fetchrow_array) {
    print @row;
    print "\n";
}

my %data;
$data{'email'} = 'dog@example.com';

my $crid = $dbh->selectrow_array("SELECT idTest FROM Temp_Test WHERE e
+mail = ? OR altEmail = ?", undef, $data{'email'}, $data{'email'});

print "ERROR: " . $dbh->errstr if $dbh->err;

print "\nCRID: $crid\n";
[download]

This correctly dumps the table data and then displays CRID: 2

So what I have done is to go back to the code that is behaving strangely and double check it.
It has been stripped back to bare minimum and the strange result still happens:

#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use FindBin qw($RealBin);
my $safepath;
BEGIN {
    if ($RealBin =~ m!^(/home/username/uk/www)!) {
        $safepath = "$1/../lib";
    } else {
        die "Illegal use of software - visit www.example.com to use th
+is site";
    }
}
use lib "$safepath";

use Site::HTML;
use Site::Wayfinder;
use Bod::CRM;

use strict;
use warnings;

my $html = Site::HTML->new;
my $wf   = Site::Wayfinder->new;
my $crm  = Bod::CRM->new('test');

$html->head;

my $logbox = 'log_login';
$logbox = 'log_fpass' if $data{'command'} eq 'fpass';

# Reset password
if ($data{'command'} eq 'rpass') {
    my $test = $crm->db->selectrow_array("SELECT idPerson FROM Person 
+WHERE email = ? OR altEmail = ?", undef, $data{'email'}, $data{'email
+'});
    
    print "<p>TEST: $test</p>\n";
    
    my $query = $crm->db->prepare("SELECT idPerson FROM Person WHERE e
+mail = ? OR altEmail = ?");
    $query->execute($data{'email'}, $data{'email'});
    my $crid  = $query->fetchrow_array;
    
    print "<p>CRID: $crid</p>\n";
    exit;
}

__END__
[download]

This has two ways of getting the same data from the database.

The output is:

TEST: 0

CRID: 1
[download]

The selectrow_array function should not be able to return zero when zero does not exist anywhere in the idPerson field of the database.

update:

Just to prove it is not something that is happening in Site::HTML->head, I have changed:

$html->head;
[download]

for

#$html->head;
print "Content-type: text/plain\n\n";
[download]

and the output now is:

<p>TEST: 0</p>
<p>CRID: 1</p>
[download]

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.