#!perl -w
WriteMakefile(
'NAME'
=>
'Date::Calc'
,
'VERSION_FROM'
=>
'Calc.pm'
,
'PREREQ_PM'
=>
{
'Carp::Clan'
=> 5.3,
'Bit::Vector'
=> 6.4
},
'OBJECT'
=>
'$(O_FILES)'
,
'dist'
=> {
COMPRESS
=>
"gzip -9"
,
SUFFIX
=>
"gz"
}
);
my
$patchlevel
= $0;
$patchlevel
=~ s![^/\\]*$!patchlevel.h!;
my
$PATCHLEVEL
=
$Config
{
'PATCHLEVEL'
} ||
$Config
{
'patchlevel'
} ||
substr
($],2,3);
my
$SUBVERSION
=
$Config
{
'SUBVERSION'
} ||
$Config
{
'subversion'
} ||
substr
($],5) || 0;
if
(
open
(PATCHLEVEL,
">$patchlevel"
))
{
print
"Writing $patchlevel for $^X ($])\n"
;
printf
PATCHLEVEL
"#define PATCHLEVEL %d\n"
,
$PATCHLEVEL
;
printf
PATCHLEVEL
"#define SUBVERSION %d\n"
,
$SUBVERSION
;
close
(PATCHLEVEL);
}
else
{
warn
"Oops: Couldn't write file '$patchlevel': $!\n"
;
warn
"However, you might succeed in building this module anyway;\n"
;
warn
"Just try it!\n"
;
}