[Module-build-checkins] Module-Build/inc ModuleBuildBuilder.pm,1.2,1.3

[Ken W. <kwi...@us...>]

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]);
  }