diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
| commit | 4781e491c32fdfe0dbe3cf97a8aca90040a9406b (patch) | |
| tree | ca4f166763cc8be7bc01e943dcbf5a058758060d /perl-install/Xconfig/parse.pm | |
| parent | 5458ef92ec80fab427e4d69b5cdd22bb76b261d8 (diff) | |
| download | drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.gz drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.bz2 drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.xz drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.zip | |
new perl_checker compliance
Diffstat (limited to 'perl-install/Xconfig/parse.pm')
| -rw-r--r-- | perl-install/Xconfig/parse.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/Xconfig/parse.pm b/perl-install/Xconfig/parse.pm index a2e662009..ea1054835 100644 --- a/perl-install/Xconfig/parse.pm +++ b/perl-install/Xconfig/parse.pm @@ -30,10 +30,10 @@ sub read_XF86Config_from_string { #- raw reading/saving #-############################################################################### sub raw_from_file { #- internal - my ($file, $lines) = @_; + my ($file, $o_lines) = @_; my $raw_X = []; - $lines ||= [ cat_($file) ]; + my $lines = $o_lines || [ cat_($file) ]; my $line; my ($comment, $obj, @objs); @@ -109,7 +109,7 @@ sub raw_from_file { #- internal } sub raw_to_string { - my ($e, $want_spacing) = @_; + my ($e, $b_want_spacing) = @_; my $s = do { if ($e->{l}) { my $inside = join('', map_index { raw_to_string($_, $::i) } @{$e->{l}}); @@ -121,7 +121,7 @@ sub raw_to_string { (defined $e->{val} ? ($e->{Option} && $e->{val} !~ /^"/ ? qq( "$e->{val}") : qq( $e->{val})) : ''); } }; - ($e->{pre_comment} ? ($want_spacing ? "\n" : '') . $e->{pre_comment} : '') . $s . ($e->{comment_on_line} || '') . "\n" . ($e->{post_comment} || ''); + ($e->{pre_comment} ? ($b_want_spacing ? "\n" : '') . $e->{pre_comment} : '') . $s . ($e->{comment_on_line} || '') . "\n" . ($e->{post_comment} || ''); } #-############################################################################### |