use
5.005;
use
lib
qw(./lib ../lib)
;
$inc
= Xmms::ExtUtils::inc();
$libs
= Xmms::ExtUtils::libs();
my
(
@libpath
) =
qw(-L/usr/X11/lib -L/usr/local/lib -L/usr/lib)
;
my
$has_add_url
= 0;
my
$has_delete
= 0;
for
(
@libpath
) {
my
$file
= DynaLoader::dl_findfile(
$_
,
"-lxmms"
);
$seen
{
$file
}++;
my
$libref
= DynaLoader::dl_load_file(
$file
, DynaLoader->dl_load_flags);
$has_add_url
||= DynaLoader::dl_find_symbol(
$libref
,
"xmms_remote_playlist_add_url_string"
);
$has_delete
||= DynaLoader::dl_find_symbol(
$libref
,
"xmms_remote_playlist_delete"
);
}
$inc
.=
" -DHAS_ADD_URL"
if
$has_add_url
;
$inc
.=
" -DHAS_DELETE"
if
$has_delete
;
if
(
keys
%seen
> 1) {
print
"*"
x 40, $/;
print
"WARNING: more than one libxmms found:\n"
;
print
map
" $_\n"
,
keys
%seen
;
print
"You might want to un-install the old version\n"
;
print
"*"
x 40, $/;
}
WriteMakefile(
'NAME'
=>
'Xmms::Remote'
,
'VERSION_FROM'
=>
'Remote.pm'
,
'LIBS'
=> [
$libs
],
'INC'
=>
$inc
,
);