Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Skip to content

Commit 773e84f

Browse files
committed
Update perl5's self-test for changed spelling of connection failure
error message.
1 parent 0f17e3f commit 773e84f

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/interfaces/perl5/test.pl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#!/usr/local/bin/perl -w
22

3-
# $Id: test.pl,v 1.11 1999/10/08 17:14:45 momjian Exp $
3+
# $Id: test.pl,v 1.12 2000/03/11 02:57:24 tgl Exp $
44

55
# Before `make install' is performed this script should be runnable with
66
# `make test'. After `make install' it should work as `perl test.pl'
@@ -114,7 +114,7 @@
114114
or die "\$conn->exec ............. not ok: ", $conn->errorMessage;
115115

116116
$conn = Pg::connectdb("dbname=rumpumpel");
117-
( $conn->errorMessage =~ 'Database rumpumpel does not exist' )
117+
( $conn->errorMessage =~ 'Database "rumpumpel" does not exist' )
118118
and print "\$conn->errorMessage ..... ok\n"
119119
or die "\$conn->errorMessage ..... not ok: ", $conn->errorMessage;
120120

0 commit comments

Comments
 (0)