diff --git a/xpp/perl_modules/Dahdi/Xpp.pm b/xpp/perl_modules/Dahdi/Xpp.pm
index d4b315b..8280b5e 100644
--- a/xpp/perl_modules/Dahdi/Xpp.pm
+++ b/xpp/perl_modules/Dahdi/Xpp.pm
@@ -97,7 +97,7 @@ sub by_type {
 }
 
 sub by_xpporder {
-	my $cmp = $a->xpporder cmp $b->xpporder;
+	my $cmp = $a->xpporder <=> $b->xpporder;
 	return $cmp if $cmp != 0;
 	return $a->connector cmp $b->connector;
 }