Tim Waugh 7a2c77
diff -up foomatic-db-engine-3.0-20080710/lib/Foomatic/DB.pm.busyloop foomatic-db-engine-3.0-20080710/lib/Foomatic/DB.pm
Tim Waugh 7a2c77
--- foomatic-db-engine-3.0-20080710/lib/Foomatic/DB.pm.busyloop	2008-07-10 08:20:10.000000000 +0100
Tim Waugh 7a2c77
+++ foomatic-db-engine-3.0-20080710/lib/Foomatic/DB.pm	2008-09-02 14:34:27.000000000 +0100
Tim Waugh 7a2c77
@@ -4237,8 +4237,10 @@ EOFPGSZ
Tim Waugh 7a2c77
 	    # ShortNickName too long? Remove last words from model name.
Tim Waugh 7a2c77
 	    $parts{'model'} =~
Tim Waugh 7a2c77
 		s/(?<=[a-zA-Z0-9])[^a-zA-Z0-9]+[a-zA-Z0-9]*$//;
Tim Waugh 7a2c77
-	    $shortnickname =
Tim Waugh 7a2c77
+	    my $new =
Tim Waugh 7a2c77
 		"$parts{'make'} $parts{'model'}, $parts{'driver'}";
Tim Waugh 7a2c77
+	    last if ($new == $shortnickname);
Tim Waugh 7a2c77
+	    $shortnickname = $new;
Tim Waugh 7a2c77
 	}
Tim Waugh 7a2c77
 	if (length($shortnickname) > 31) {
Tim Waugh 7a2c77
 	    # If nothing else helps ...