diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-05-29 10:01:49 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-05-29 10:01:49 +0000 |
| commit | ac69f0ff59b518aa5c52be512aeab0f7c0b692c7 (patch) | |
| tree | 1655cffea2ed594c4a98cdfc250611f5510336dc /perl-install/printerdrake.pm | |
| parent | e120b9d5cc7ca9001d319c2766150165c4e82db5 (diff) | |
| download | drakx-ac69f0ff59b518aa5c52be512aeab0f7c0b692c7.tar drakx-ac69f0ff59b518aa5c52be512aeab0f7c0b692c7.tar.gz drakx-ac69f0ff59b518aa5c52be512aeab0f7c0b692c7.tar.bz2 drakx-ac69f0ff59b518aa5c52be512aeab0f7c0b692c7.tar.xz drakx-ac69f0ff59b518aa5c52be512aeab0f7c0b692c7.zip | |
added fix from Michael Brown to handle pipe in queue name for lpr.
Diffstat (limited to 'perl-install/printerdrake.pm')
| -rw-r--r-- | perl-install/printerdrake.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 432ea16c2..d0aeffd20 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -450,7 +450,7 @@ and optionally the port number."), [ { title => _("Select Printer Connection"), cancel => !$printer->{configured}{$printer->{QUEUE}} ? '' : _("Remove queue"), callbacks => { complete => sub { - unless ($printer->{QUEUE} =~ /^\w*$/) { + unless ($printer->{QUEUE} =~ /^\w+[\w\|]*\w+$/) { $in->ask_warn('', _("Name of printer should contains only letters, numbers and the underscore")); return (1,0); } |