- don't die if service has no protocol

Changed files:
    MigrationTools-services.patch -> 1.1

diff --git a/MigrationTools-services.patch b/MigrationTools-services.patch
new file mode 100644 (file)
index 0000000..59706da
--- /dev/null
+++ b/MigrationTools-services.patch
@@ -0,0 +1,13 @@
+--- MigrationTools-45/migrate_services.pl~     2003-10-02 17:10:02.000000000 +0200
++++ MigrationTools-45/migrate_services.pl      2003-10-02 17:45:36.000000000 +0200
+@@ -102,6 +102,10 @@
+               my ($servicename, $portproto, @aliases) = split(m/\s+/o, $card);
+               my ($rawport, $proto) = split(m#[/,]#o, $portproto);
+ 
++              if (!defined $proto) {
++                      $proto = "";
++              }
++
+               # Find services specifying a port range (e.g. X11.)
+               my $loport = '';
+               my $hiport = '';