diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-08-19 10:50:49 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-08-19 10:50:49 +0000 |
| commit | 77f9d9023243eb841e77fe8804d3101eebabcd4f (patch) | |
| tree | bebbc96c57bed0fb1639115bc5a533235ae2a2a1 /perl-install/printer/printerdrake.pm | |
| parent | 5705531c76a81cab986561a6c1b36d42f4db6287 (diff) | |
| download | drakx-backup-do-not-use-77f9d9023243eb841e77fe8804d3101eebabcd4f.tar drakx-backup-do-not-use-77f9d9023243eb841e77fe8804d3101eebabcd4f.tar.gz drakx-backup-do-not-use-77f9d9023243eb841e77fe8804d3101eebabcd4f.tar.bz2 drakx-backup-do-not-use-77f9d9023243eb841e77fe8804d3101eebabcd4f.tar.xz drakx-backup-do-not-use-77f9d9023243eb841e77fe8804d3101eebabcd4f.zip | |
workaround not to call c::upgrade_utf8 on read-only variables
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 30 |
1 files changed, 20 insertions, 10 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index 83583b7d0..4492bf9c1 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -949,13 +949,17 @@ sub setup_local_autoscan { if ($p->{val}{DESCRIPTION}) { my $menustr = $p->{val}{DESCRIPTION}; if ($p->{port} =~ m!^/dev/lp(\d+)$!) { - $menustr .= N(" on parallel port #%s", $1); + my $port = $1 + $menustr .= N(" on parallel port #%s", $port); } elsif ($p->{port} =~ m!^/dev/usb/lp(\d+)$!) { - $menustr .= N(", USB printer #%s", $1); + my $printer = $1; + $menustr .= N(", USB printer #%s", $printer); } elsif ($p->{port} =~ m!^socket://([^:]+):(\d+)$!) { - $menustr .= N(", network printer \"%s\", port %s", $1, $2); + my ($printer, $port) = ($1, $2); + $menustr .= N(", network printer \"%s\", port %s", $printer, $port); } elsif ($p->{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) { - $menustr .= N(", printer \"%s\" on SMB/Windows server \"%s\"", $2, $1); + my ($server, $printer) = ($1, $2); + $menustr .= N(", printer \"%s\" on SMB/Windows server \"%s\"", $printer, $server); } $menustr .= " ($p->{port})" if $printer->{expert}; $menuentries->{$menustr} = $p->{port}; @@ -963,13 +967,17 @@ sub setup_local_autoscan { } else { my $menustr; if ($p->{port} =~ m!^/dev/lp(\d+)$!) { - $menustr = N("Printer on parallel port #%s", $1); + my $port = $1; + $menustr = N("Printer on parallel port #%s", $port); } elsif ($p->{port} =~ m!^/dev/usb/lp(\d+)$!) { - $menustr = N("USB printer #%s", $1); + my $printer = $1; + $menustr = N("USB printer #%s", $printer); } elsif ($p->{port} =~ m!^socket://([^:]+):(\d+)$!) { - $menustr .= N("Network printer \"%s\", port %s", $1, $2); + my ($printer, $port); + $menustr .= N("Network printer \"%s\", port %s", $printer, $port); } elsif ($p->{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) { - $menustr .= N("Printer \"%s\" on SMB/Windows server \"%s\"", $2, $1); + my ($server, $printer) = ($1, $2); + $menustr .= N("Printer \"%s\" on SMB/Windows server \"%s\"", $printer, $server); } $menustr .= " ($p->{port})" if $printer->{expert}; $menuentries->{$menustr} = $p->{port}; @@ -986,9 +994,11 @@ sub setup_local_autoscan { } my $menustr; if ($q =~ m!^/dev/lp(\d+)$!) { - $menustr = N("Printer on parallel port #%s", $1); + my $port = $1; + $menustr = N("Printer on parallel port #%s", $port); } elsif ($q =~ m!^/dev/usb/lp(\d+)$!) { - $menustr = N("USB printer #%s", $1); + my $printer; + $menustr = N("USB printer #%s", $printer); } $menustr .= " ($q)" if $printer->{expert}; $menuentries->{$menustr} = $q; |