summaryrefslogtreecommitdiffstats
path: root/urpm/cfg.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-11-03 13:34:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-11-03 13:34:29 +0000
commit91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4 (patch)
tree4414c5721935b629d82eca700270194e71de0f46 /urpm/cfg.pm
parentc00ac473861f824abb28efd94645276893868bb6 (diff)
downloadurpmi-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.pm6
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();