From c7f1151fd13fa36450ed0fae3ad90de602b1bd9a Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Fri, 20 Sep 2002 21:29:52 +0000
Subject: The LPD/LPRng port is 515, not 5015.

---
 perl-install/network/shorewall.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm
index 46239d35f..941d5673d 100644
--- a/perl-install/network/shorewall.pm
+++ b/perl-install/network/shorewall.pm
@@ -10,7 +10,8 @@ use common;
 use log;
 
 my @drakgw_ports = qw(domain bootps http https 631 imap pop3 smtp nntp ntp);
-my @internal_ports = qw(631 5015 137 138 139);
+# Ports for CUPS (631), LPD/LPRng (515), SMB (137, 138, 139)
+my @internal_ports = qw(631 515 137 138 139);
 
 sub check_iptables {
     my ($in) = @_;
-- 
cgit v1.2.1