*** ./interfaces/perl5/test.pl.orig	Thu Oct  7 20:25:13 1999
--- ./interfaces/perl5/test.pl	Thu Oct  7 20:41:40 1999
***************
*** 147,153 ****
  
  ######################### create and insert into table
  
! $result = $conn->exec("CREATE TABLE person (id int4, name char(16))");
  die $conn->errorMessage unless PGRES_COMMAND_OK eq $result->resultStatus;
  my $cmd = $result->cmdStatus;
  ( "CREATE" eq $cmd )
--- 147,153 ----
  
  ######################### create and insert into table
  
! $result = $conn->exec("CREATE TABLE person (id int4, name char(16)) -- /* test*/");
  die $conn->errorMessage unless PGRES_COMMAND_OK eq $result->resultStatus;
  my $cmd = $result->cmdStatus;
  ( "CREATE" eq $cmd )