Re: [INTERFACES] Take two: Simple CREATE TABLE in DBI::Pg?

>>In article <199806210737.AAA20815@ralf.serv.net>, Ken McGlothlen <mcglk@serv.net> writes:

> [This is the second time I've asked this on this list.  Is anyone
> else getting my messages?  I would *really* like to get an answer
> here.]

> Here's the program, in Perl; I've pared it down to the bare minimum:

>     #!/usr/local/bin/perl

>     use DBI;

>     sub tbl_easy_init {
>         local( $dbh ) = shift;
>         local( $sth ) = $dbh->prepare( "create table tbl_easy (id int4)" );
>         $sth->execute();
=====>        $dbh->commit;
>     }

>     $dbh = DBI->connect( "dbi:Pg:dbname=booga", "", "",
>                  { "PrintError" => 0, "AutoCommit" => 0 } );

>     $rv = &tbl_easy_init( $dbh );

> This program fails.  I've tried it with all global variables, tried
> a number of different CREATE TABLE statements, and so on, and $rv
> always winds up being equal to -1.  Yet, typing in the CREATE TABLE
> statement in psql works.

--
            ... _._. ._ ._. . _._. ._. ___ .__ ._. . .__. ._ .. ._.
     Felix Finch: scarecrow repairman & rocket surgeon / felix@crowfix.com
  PGP = 91 B3 94 7C E9 E8 76 2D   E1 63 51 AA A0 48 89 2F  ITAR license #4933
I've found a solution to Fermat's Last Theorem but I see I've run out of room o