diff options
| author | Edmund Mergl <E.Mergl@bawue.de> | 1997-09-25 21:15:04 +0000 |
|---|---|---|
| committer | Edmund Mergl <E.Mergl@bawue.de> | 1997-09-25 21:15:04 +0000 |
| commit | c5d49902fb5ac589059b724f78d95ad7d34a50ce (patch) | |
| tree | b086178b7082a6d2a548b2eb4bc76209d03132ec /src/interfaces/perl5/eg/example.oldstyle | |
| parent | 4a98c5763e1da24983a2fec0636c464be0286ff9 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/interfaces/perl5/eg/example.oldstyle')
| -rw-r--r-- | src/interfaces/perl5/eg/example.oldstyle | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interfaces/perl5/eg/example.oldstyle b/src/interfaces/perl5/eg/example.oldstyle index d6c84e04343..7f0f46b6f2d 100644 --- a/src/interfaces/perl5/eg/example.oldstyle +++ b/src/interfaces/perl5/eg/example.oldstyle @@ -1,8 +1,8 @@ -#!/usr/local/bin/perl +#!/usr/local/bin/perl -w #------------------------------------------------------- # -# $Id: example.oldstyle,v 1.1 1997/09/17 20:48:15 mergl Exp $ +# $Id: example.oldstyle,v 1.2 1997/09/25 21:15:04 mergl Exp $ # # Copyright (c) 1997 Edmund Mergl # @@ -148,7 +148,8 @@ $result = PQexec($conn, "COPY person TO STDOUT"); cmp_eq(PGRES_COPY_OUT, PQresultStatus($result)); PQclear($result); -$i = 1; +$i = 1; +$ret = 0; while (-1 != $ret) { $ret = PQgetline($conn, $string, 256); last if $string eq "\\."; |