WriteMakefile(
'NAME'
=>
'Term::EditLine'
,
'VERSION_FROM'
=>
'EditLine.pm'
,
'PREREQ_PM'
=> {},
($] >= 5.005 ?
(
ABSTRACT_FROM
=>
'EditLine.pod'
,
AUTHOR
=>
'Ulrich Burgbacher <ulrich@burgbacher.net>'
) : ()),
'LIBS'
=> [
'-ledit'
],
'DEFINE'
=>
''
,
'INC'
=>
'-I.'
,
);
my
@names
= (
qw(CC_ARGHACK CC_CURSOR CC_EOF CC_ERROR CC_FATAL CC_NEWLINE
CC_NORM CC_REDISPLAY CC_REFRESH CC_REFRESH_BEEP EL_ADDFN
EL_BIND EL_BUILTIN_GETCFN EL_CLIENTDATA EL_ECHOTC EL_EDITMODE
EL_EDITOR EL_GETCFN EL_HIST EL_PROMPT EL_RPROMPT EL_SETTC
EL_SETTY EL_SIGNAL EL_TELLTC EL_TERMINAL H_ADD H_APPEND
H_CLEAR H_CURR H_END H_ENTER H_FIRST H_FUNC H_GETSIZE H_LAST
H_LOAD H_NEXT H_NEXT_EVENT H_NEXT_STR H_PREV H_PREV_EVENT
H_PREV_STR H_SAVE H_SET H_SETSIZE)
);
ExtUtils::Constant::WriteConstants(
NAME
=>
'Term::EditLine'
,
NAMES
=> \
@names
,
DEFAULT_TYPE
=>
'IV'
,
C_FILE
=>
'const-c.inc'
,
XS_FILE
=>
'const-xs.inc'
,
);
}
else
{
foreach
my
$file
(
'const-c.inc'
,
'const-xs.inc'
) {
my
$fallback
= File::Spec->catfile(
'fallback'
,
$file
);
copy (
$fallback
,
$file
) or
die
"Can't copy $fallback to $file: $!"
;
}
}