blob: 945d4069c365236ad2ceca6b8bc20ed81915e8a1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
$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
|
