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]

In reply to Re^2: Recalcitrant placeholders by Bod
in thread Recalcitrant placeholders by Bod

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.