On 24 April 2012 22:10, <[email protected]> wrote:
> services: Whitespace
why?
> --- drakx/trunk/perl-install/services.pm 2012-04-24 20:10:31 UTC (rev
> 4242)
> +++ drakx/trunk/perl-install/services.pm 2012-04-24 20:10:33 UTC (rev
> 4243)
> @@ -346,9 +346,9 @@
> local $ENV{LANGUAGE} = 'C';
> my @xinetd_services;
> foreach (run_program::rooted_get_stdout($::prefix, '/sbin/chkconfig',
> '--list', '--type', 'xinetd')) {
> - if (my ($xinetd_name, $on_off) = m!^\t(\S+):\s*(on|off)!) {
> - push @xinetd_services, [ $xinetd_name, $on_off eq 'on' ];
> - }
> + if (my ($xinetd_name, $on_off) = m!^\t(\S+):\s*(on|off)!) {
> + push @xinetd_services, [ $xinetd_name, $on_off eq 'on' ];
> + }
> }
> @xinetd_services;
> }
>
