From 91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Nov 2006 13:34:29 +0000
Subject: perl_checker compliance

---
 urpm/cfg.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'urpm/cfg.pm')

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();
-- 
cgit v1.2.1