--- MigrationTools-46/migrate_services.pl.orig	2007-05-23 14:41:22.000000000 +0200
+++ MigrationTools-46/migrate_services.pl	2007-05-23 14:42:55.000000000 +0200
@@ -102,6 +102,12 @@
 		my ($servicename, $portproto, @aliases) = split(m/\s+/o, $card);
 		my ($rawport, $proto) = split(m#[/,]#o, $portproto);
 
+		# do not generate ddp services - it's AppleTalk, not IP
+                if ($proto eq "ddp") { 
+                    print STDERR "Skipping non-IP service '$servicename $portproto'\n";
+                    next; 
+                }
+
 		# Find services specifying a port range (e.g. X11.)
 		my $loport = '';
 		my $hiport = '';