;
use
5.006_001
;
my
$dist
=
'OOTools'
;
my
$vers
=
'1.73'
; WriteMakefile
(
NAME
=>
$dist
,
VERSION
=>
$vers
, ( $] ge
'5.005'
)
? (
AUTHOR
=>
'Domizio Demichelis - perl.4pro.net'
,
ABSTRACT
=>
'Pragmas to implement constructors and accessors'
)
: ()
)
;
my
(
%opt
) =
map
{
split
/=/ }
@ARGV
;
exit
if
$opt
{NO_VERSION_CHECK}
;
if
(
$LWP_installed
)
{
my
$current_vers
= LWP::Simple::get
.
"?DISTRIBUTION=$dist&VERSION=$vers&PERL=$]-$^O"
)
;
exit
unless
defined
$current_vers
;
if
(
$current_vers
== 0 )
{
print
<<
"EOS"
Unknown distribution:
$dist
.
EOS
}
elsif
(
$current_vers
>
$vers
)
{
print
<<
"EOS"
WARNING! WARNING! WARNING! WARNING! WARNING! WARNING! WARNING! WARNING!
You are about to install an old
$dist
version! (
$vers
)
The current
$dist
version that should be available on CPAN
right now (or in a few hours) is the
$current_vers
.
EOS
}
else
{
print
<<
"EOS"
I hope you will appreciate
$dist
$vers
.
If you have any problem
with
this installation,
EOS
}
}
; 1