From ac69f0ff59b518aa5c52be512aeab0f7c0b692c7 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 29 May 2001 10:01:49 +0000
Subject: added fix from Michael Brown to handle pipe in queue name for lpr.

---
 perl-install/printerdrake.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
 					 }
-- 
cgit v1.2.1