Question regarding to DBI::quote and CGI

[Joseph Xu]

Hi,

The following test script has strange behavior.   It may relate
to CGI::Vars. please advice.

Thanks

#!/usr/bin/perl

use DBI;
use CGI;

my $dbh = DBI->connect("dbi:mysql:wirepoll01", "UID", "PWD");
my $q = new CGI;

$q->param('abc' => 'teststring');
$p = $q->Vars;
print $dbh->quote( $p->{'abc'} );       # WHY print 'NULL' ????????

$pp = {'abc' => 'teststring'};
print $dbh->quote( $pp->{'abc'} );      # but this print '\'teststring\''

$dbh->disconnect;

~

---------------------------------------------------
Joseph Xu, Software Developer, The Associated Press
Tel: +1 (212) 621-7252,   Email: [EMAIL PROTECTED]
---------------------------------------------------
     __      _  __
 __ / /     | |/_/ __ __
/ // /  _  _>  <  / // /
\___/  (_)/_/|_|  \_,_/