[more info] Re: dates and cdbi::fromcgi ?

[prev] [thread] [next] [Date index for 2005/02/10]

I was able to track where I get this error. It happen at this snippet in code :


   #----------------------------------------------------------------------
        # Are we doing a validation check?
        #----------------------------------------------------------------------
        unless ($skip_valid) {
                if (my $ref = $handler->can('is_valid')) {
                        die "$field ($raw) does not pass the is_valid() check\n"
                                unless $handler->$ref();
                }
        }


from CGI::Untaint in this case calling CGI::Untaint::date::is_valid(). (calling $handler->is_valid() gives the same result)
On the other hand $handler->value() is ok.

.... any idea what can be the problem..

use Data::Dumper;
print '<pre>' . (Dumper $handler) . '</pre>';

gives this :

$VAR1 = bless( {
                 '_obj' => bless( {
                                    '__data' => {
                                                  'wdate' => '2005-02-06'
                                                },
                                    '__config' => {
                                                    'INCLUDE_PATH' => undef
                                                  },
                                    '__loaded' => {
                                                    'CGI::Untaint::date' => 'CGI::Untaint::date'
                                                  },
                                    '_ERR' => ''
                                  }, 'CGI::Untaint' ),
                 '_clean' => '2005-02-06',
                 '_raw' => '2005-02-06'
               }, 'CGI::Untaint::date' );



the error :
Can't insert new My::Stuff: Can't bind a reference (Date::Simple=SCALAR(0x84c8af4)) at /usr/lib/perl5/site_perl/5.8.2/DBIx/ContextualFetch.pm line 51. errCan't bind a reference (Date::Simple=SCALAR(0x84c8af4)) at /usr/lib/perl5/site_perl/5.8.2/DBIx/ContextualFetch.pm line 51. methodcreate at /usr/lib/perl5/5.8.6/Carp.pm line 269. , /usr/lib/perl5/site_perl/5.8.6/Apache/ASP.pm line 1518