32 lines
1.3 KiB
Text
32 lines
1.3 KiB
Text
$NetBSD: patch-aa,v 1.2 2002/10/27 19:41:54 seb Exp $
|
|
|
|
--- Makefile.PL.orig Tue Nov 20 21:04:06 2001
|
|
+++ Makefile.PL
|
|
@@ -39,9 +39,6 @@ WriteMakefile('NAME' => 'DBD::Sy
|
|
'LDDLFLAGS' => $lddlflags,
|
|
'LDFLAGS' => $ldflags,
|
|
LINKTYPE => $LINKTYPE,
|
|
- ($^O eq 'VMS' ?
|
|
- (MAN3PODS => { 'Sybase.pm' => 'blib/man3/DBD_Sybase.3' }) :
|
|
- (MAN3PODS => { 'Sybase.pm' => 'blib/man3/DBD::Sybase.3' })),
|
|
($] >= 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
|