sub
initialize {
my
$self
=
shift
;
$self
->SUPER::initialize;
$self
->{
defined
}{IndexSite} =
$self
->{
defined
}{ArchiveName} =
'git'
;
$self
->{
defined
}{VersionForm} =
'1\.\d\.\d{1,2}(\.\d{1,2})?'
;
$self
->{
defined
}{DownloadSite} =
$self
->{
defined
}{IndexParserForm} = \
&set_index_parser_form
;
$self
->{
defined
}{AdditionalArgument} =
'--without-tcltk'
;
$self
->{
defined
}{TestAction} =
'test'
;
return
$self
;
}
sub
set_index_parser_form {
my
$attributes
=
shift
;
my
$filename_form
=
quotemeta
(
$attributes
->ArchiveName ) .
'-'
.
$attributes
->VersionForm .
'\.'
.
quotemeta
(
$attributes
->Extension );
my
$index_parser_form
=
'name='
.
$filename_form
.
'&'
;
return
$index_parser_form
;
}
1;