my
%WriteMakefileArgs
= (
"ABSTRACT"
=>
"Work out new dimensions for an image (or just a retangle) when restricted in one dimension."
,
"AUTHOR"
=>
"Rob Brown <rob\@intelcompute.com>"
,
"BUILD_REQUIRES"
=> {},
"CONFIGURE_REQUIRES"
=> {
"ExtUtils::MakeMaker"
=>
"6.30"
},
"DISTNAME"
=>
"Math-RatioResize"
,
"EXE_FILES"
=> [],
"LICENSE"
=>
"perl"
,
"NAME"
=>
"Math::RatioResize"
,
"PREREQ_PM"
=> {},
"TEST_REQUIRES"
=> {},
"VERSION"
=>
"0.01"
,
"test"
=> {
"TESTS"
=>
"t/*.t"
}
);
unless
(
eval
{ ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
my
$tr
=
delete
$WriteMakefileArgs
{TEST_REQUIRES};
my
$br
=
$WriteMakefileArgs
{BUILD_REQUIRES};
for
my
$mod
(
keys
%$tr
) {
if
(
exists
$br
->{
$mod
} ) {
$br
->{
$mod
} =
$tr
->{
$mod
}
if
$tr
->{
$mod
} >
$br
->{
$mod
};
}
else
{
$br
->{
$mod
} =
$tr
->{
$mod
};
}
}
}
unless
(
eval
{ ExtUtils::MakeMaker->VERSION(6.56) } ) {
my
$br
=
delete
$WriteMakefileArgs
{BUILD_REQUIRES};
my
$pp
=
$WriteMakefileArgs
{PREREQ_PM};
for
my
$mod
(
keys
%$br
) {
if
(
exists
$pp
->{
$mod
} ) {
$pp
->{
$mod
} =
$br
->{
$mod
}
if
$br
->{
$mod
} >
$pp
->{
$mod
};
}
else
{
$pp
->{
$mod
} =
$br
->{
$mod
};
}
}
}
delete
$WriteMakefileArgs
{CONFIGURE_REQUIRES}
unless
eval
{ ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(
%WriteMakefileArgs
);