diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-24 00:16:37 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-24 00:16:37 +0000 |
commit | 4a087d31ce923fb5622c10177484e41350a2fab8 (patch) | |
tree | 5a385a018b31390046e08604a9795245b779628c | |
parent | 534c0659ecc19de6655012523d907330d6ba0bad (diff) | |
download | urpmi-4a087d31ce923fb5622c10177484e41350a2fab8.tar urpmi-4a087d31ce923fb5622c10177484e41350a2fab8.tar.gz urpmi-4a087d31ce923fb5622c10177484e41350a2fab8.tar.bz2 urpmi-4a087d31ce923fb5622c10177484e41350a2fab8.tar.xz urpmi-4a087d31ce923fb5622c10177484e41350a2fab8.zip |
no_comment
-rw-r--r-- | autoirpm.deny | 1 | ||||
-rwxr-xr-x | urpmi | 12 |
2 files changed, 12 insertions, 1 deletions
diff --git a/autoirpm.deny b/autoirpm.deny index 9f8e56e4..7fcf5705 100644 --- a/autoirpm.deny +++ b/autoirpm.deny @@ -1,3 +1,4 @@ gdm quotaon quotaoff linux_logo +accton @@ -222,7 +222,12 @@ sub message { $X ? `gmessage -default Ok -buttons Ok "$_[0]"` : print SAVEOUT "$ sub member($@) { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 } sub uniq { my %l; @l{@_} = (); keys %l } sub difference2(\@\@) { my %l; @l{@{$_[1]}} = (); grep { !exists $l{$_} } @{$_[0]} } -sub _ { my $s = shift @_; sprintf translate($s), @_ } +sub _ { + my $s = shift @_; my $t = translate($s); + $t && ref $t or return sprintf $t, @_; + my ($T, @p) = @$t; + sprintf $T, @_[@p]; +} sub translate { $I18N{$_[0]} || $_[0]; } sub log_it { @@ -254,6 +259,11 @@ sub load_po { if (/^(#|$)/ && $state != 3) { $state = 3; s/\\n/\n/g foreach $from, $to; + + if (my @l = $to =~ /%(\d+)\$/g) { + $to =~ s/%(\d+)\$/%/g; + $to = [ $to, map { $_ - 1 } @l ]; + } $I18N{$from} = $to if $from; $from = $to = ''; } |