# New Ticket Created by  Hans Dieter Pearcey 
# Please include the string:  [perl #59742]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=59742 >


When libpq can't be loaded, this unhelpful message appears:

No such string attribute '0'

the attached patch fixes that.

hdp.
Index: runtime/parrot/library/postgres.pir
===================================================================
--- runtime/parrot/library/postgres.pir	(revision 31812)
+++ runtime/parrot/library/postgres.pir	(working copy)
@@ -8,7 +8,7 @@
 loadlib $P1, 'cygpq'
 if $P1 goto has_lib
 $P2 = new 'Exception'
-$P2[0] = 'error loading libpg - loadlib failed'
+$P2 = 'error loading libpq - loadlib failed'
 throw $P2
 has_lib:
 dlfunc $P2, $P1, 'PQconnectStart', 'pt'

Reply via email to