diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-03-14 10:24:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-03-14 10:24:35 +0000 |
| commit | 0f1482c693a526ee4926f37f590df3b93fa13aeb (patch) | |
| tree | 59c66f586bf7f0a474138b2e447e0195e97648bd /perl-install | |
| parent | cdf17af5b71e32ade5cda431ed6479e37cf6144b (diff) | |
| download | drakx-0f1482c693a526ee4926f37f590df3b93fa13aeb.tar drakx-0f1482c693a526ee4926f37f590df3b93fa13aeb.tar.gz drakx-0f1482c693a526ee4926f37f590df3b93fa13aeb.tar.bz2 drakx-0f1482c693a526ee4926f37f590df3b93fa13aeb.tar.xz drakx-0f1482c693a526ee4926f37f590df3b93fa13aeb.zip | |
add $line_nb in message
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index df1171718..6856992cb 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -48,7 +48,7 @@ sub read_rpmsrate_raw { my ($rate) = @$rates or die sprintf qq(missing rate for "%s" at line %d (flags are %s)\n), $data, $line_nb, join('&&', @m); foreach my $name (split ' ', $data) { if (uc($name) eq $name) { - log::l("$name is parsed as a package name, not as a flag"); + log::l("$line_nb: $name is parsed as a package name, not as a flag"); } if (member('INSTALL', @$flags)) { push @need_to_copy, $name if !member('NOCOPY', @$flags); |