diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:34:29 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:34:29 +0000 |
commit | 91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4 (patch) | |
tree | 4414c5721935b629d82eca700270194e71de0f46 /urpm/cfg.pm | |
parent | c00ac473861f824abb28efd94645276893868bb6 (diff) | |
download | urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar.gz urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar.bz2 urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar.xz urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.zip |
perl_checker compliance
Diffstat (limited to 'urpm/cfg.pm')
-rw-r--r-- | urpm/cfg.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/urpm/cfg.pm b/urpm/cfg.pm index f39679e1..30d9cc8b 100644 --- a/urpm/cfg.pm +++ b/urpm/cfg.pm @@ -7,7 +7,7 @@ use warnings; use urpm::util; use urpm::msg 'N'; -(our $VERSION) = q$Revision$ =~ /(\d+)/; +(our $VERSION) = q($Revision$) =~ /(\d+)/; =head1 NAME @@ -104,7 +104,7 @@ sub expand_line { } sub load_config ($;$) { - my ($file, $norewrite) = @_; + my ($file, $b_norewrite) = @_; my %config; my $priority = 0; my $medium; @@ -115,7 +115,7 @@ sub load_config ($;$) { chomp; next if /^\s*#/; #- comments s/^\s+//; s/\s+$//; - $_ = expand_line($_) unless $norewrite; + $_ = expand_line($_) unless $b_norewrite; if ($_ eq '}') { #-{ if (!defined $medium) { _syntax_error(); |