diff options
Diffstat (limited to 'databases/p5-DBD-Sybase/patches/patch-aa')
| -rw-r--r-- | databases/p5-DBD-Sybase/patches/patch-aa | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/databases/p5-DBD-Sybase/patches/patch-aa b/databases/p5-DBD-Sybase/patches/patch-aa index 98e73da140c..945d4069c36 100644 --- a/databases/p5-DBD-Sybase/patches/patch-aa +++ b/databases/p5-DBD-Sybase/patches/patch-aa @@ -1,6 +1,6 @@ -$NetBSD: patch-aa,v 1.1 2002/09/21 07:43:51 jlam Exp $ +$NetBSD: patch-aa,v 1.2 2002/10/27 19:41:54 seb Exp $ ---- Makefile.PL.orig Tue Nov 20 13:04:06 2001 +--- Makefile.PL.orig Tue Nov 20 21:04:06 2001 +++ Makefile.PL @@ -39,9 +39,6 @@ WriteMakefile('NAME' => 'DBD::Sy 'LDDLFLAGS' => $lddlflags, @@ -12,3 +12,21 @@ $NetBSD: patch-aa,v 1.1 2002/09/21 07:43:51 jlam Exp $ ($] >= 5.005 ? (ABSTRACT => 'DBI driver for Sybase datasources', AUTHOR => 'Michael Peppler (mpeppler@peppler.org)') : ()), +@@ -197,17 +194,6 @@ sub configPwd { + $pwd{$key} = $val || "undef"; + } + close(IN); +- select(STDOUT); $| = 1; +- +- print "The DBD::Sybase module need access to a Sybase server to run the tests.\n"; +- print "To clear an entry please enter 'undef'\n"; +- print "Sybase server to use (default: $pwd{SRV}): "; +- $pwd{SRV} = getAns() || $pwd{SRV}; +- print "User ID to log in to Sybase (default: $pwd{UID}): "; +- $pwd{UID} = getAns() || $pwd{UID}; +- print "Password (default: $pwd{PWD}): "; +- $pwd{PWD} = getAns() || $pwd{PWD}; +- + open(OUT, ">PWD") || die "Can't open PWD: $!"; + print OUT <<EOF; + # This file contains optional login id, passwd and server info for the test |