From 3280b0b98fc13df3053f9735b94bdc9828f5537c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 14 Mar 2008 10:25:13 +0000 Subject: add $line_nb in message --- perl-install/pkgs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 6856992cb..405bfe75b 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -67,10 +67,10 @@ sub read_rpmsrate_raw { } elsif (@diff1 == 1 && @diff2 == 1) { @new_flags = (@common, join('||', $diff1[0], $diff2[0])); } else { - log::l("can not handle complicate flags for packages appearing twice ($name)"); + log::l("$line_nb: can not handle complicate flags for packages appearing twice ($name)"); $fatal_error++; } - log::l("package $name appearing twice with different rates ($rate != " . $rates{$name} . ")") if $rate != $rates{$name}; + log::l("$line_nb: package $name appearing twice with different rates ($rate != " . $rates{$name} . ")") if $rate != $rates{$name}; } $rates{$name} = $rate; $flags{$name} = \@new_flags; -- cgit v1.2.1