Update of /cvsroot/module-build/Module-Build/inc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31864/inc
Modified Files:
ModuleBuildBuilder.pm
Log Message:
Use the new run_perl_command() because it's nicer here
Index: ModuleBuildBuilder.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/inc/ModuleBuildBuilder.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ModuleBuildBuilder.pm 18 Dec 2004 20:57:04 -0000 1.2
--- ModuleBuildBuilder.pm 18 Dec 2004 21:16:07 -0000 1.3
***************
*** 20,42 ****
# Replace "<autogenerated_accessors>" with some POD lists
my @need_doc = sort grep !$subs{$_}, $self->valid_properties;
! $self->run_perl_script($authoring_pod,
! ['-pi',
! '-e',
! qq[s{<autogenerated_accessors>}{ join "\\n\\n", map "=item \$_()", qw(@need_doc) }e] ],
! []);
# Replace "<action_list>" with a list of actions
my $action_text = $self->_action_listing(scalar $self->known_actions);
! $self->run_perl_script($build_pm,
! ['-pi', '-e', qq[s{<action_list>}{$action_text}]],
! []);
# Finally, sneakily rewrite the Build.PL to use a vanilla
# Module::Build object instead of a ModuleBuildBuilder.
! $self->run_perl_script($build_pl,
! ['-pi', '-e', qq[BEGIN{\$/=undef} s{<remove_me>.*</remove_me>}{}gs]],
! []);
! $self->run_perl_script($build_pl,
! ['-pi', '-e', qq[s{ModuleBuildBuilder}{Module::Build}gs]],
! []);
}
--- 20,35 ----
# Replace "<autogenerated_accessors>" with some POD lists
my @need_doc = sort grep !$subs{$_}, $self->valid_properties;
! $self->run_perl_command(['-pi',
! '-e',
! qq[s{<autogenerated_accessors>}{ join "\\n\\n", map "=item \$_()", qw(@need_doc) }e],
! $authoring_pod]);
# Replace "<action_list>" with a list of actions
my $action_text = $self->_action_listing(scalar $self->known_actions);
! $self->run_perl_command(['-pi', '-e', qq[s{<action_list>}{$action_text}], $build_pm]);
# Finally, sneakily rewrite the Build.PL to use a vanilla
# Module::Build object instead of a ModuleBuildBuilder.
! $self->run_perl_command(['-pi', '-e', qq[BEGIN{\$/=undef} s{<remove_me>.*</remove_me>}{}gs], $build_pl]);
! $self->run_perl_command(['-pi', '-e', qq[s{ModuleBuildBuilder}{Module::Build}gs], $build_pl]);
}
|
