postgres insert

[Tom Allison]

I've been using something like this for Oracle for some time
and tried it with Postgresql.

(RaiseError doesn't change the outcome)


  sub insert_token {
    my $token = shift;
    eval{ $sth1->execute($token) };
    if ($@) {
      return 1 if $@ =~ /duplicate key violates unique constraint/;
      die "ERROR: [EMAIL PROTECTED]";
    }
    return $sth1->rows;
  }



I get a STDERR warning printed out everytime this has a duplicate key 
violation...

Any idea why eval{} doesn't suppress this?

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>