Index: DJabberd.pm
===================================================================
--- DJabberd.pm	(revision 659)
+++ DJabberd.pm	(working copy)
@@ -56,7 +56,7 @@
     my $self = {
         'daemonize'   => delete $opts{daemonize},
         's2s_port'    => delete $opts{s2s_port},
-        'c2s_port'    => delete($opts{c2s_port}) || 5222, # {=clientportnumber}
+        'c2s_port'    => delete $opts{c2s_port},
         'old_ssl'     => delete $opts{old_ssl},
         'vhosts'      => {},
         'fake_peers'  => {}, # for s2s testing.  $hostname => "ip:port"
@@ -64,6 +64,10 @@
         'monitor_host' => {},
     };
 
+    # if they set c2s_port to explicitly 0, it's disabled for all vhosts
+    # but no setting it means 5222 still listnes
+    $self->{c2s_port} = 5222 unless defined $self->{c2s_port};
+
     # if they set s2s_port to explicitly 0, it's disabled for all vhosts
     # but not setting it means 5269 still listens, if vhosts are configured
     # for s2s.