dougm 01/09/16 17:34:59 Modified: util xs_check.pl Log: change output format; easier for pasting into .map files sort output Revision Changes Path 1.4 +3 -3 modperl-2.0/util/xs_check.pl Index: xs_check.pl =================================================================== RCS file: /home/cvs/modperl-2.0/util/xs_check.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- xs_check.pl 2001/08/01 01:45:59 1.3 +++ xs_check.pl 2001/09/17 00:34:59 1.4 @@ -21,7 +21,7 @@ if (my $missing = $missing{$things}) { my $n = @$missing; print "$n $things are not mapped:\n"; - print "--> $_\n" for @$missing; + print " $_\n" for sort @$missing; } else { print "all $things are mapped\n"; @@ -38,7 +38,7 @@ if (my $missing = $obj->check_exists) { my $n = @$missing; print "$n mapped $things do not exist:\n"; - print "--> $_\n" for @$missing; + print " $_\n" for sort @$missing; } else { print "all mapped $things exist\n"; @@ -62,7 +62,7 @@ if (@missing) { my $n = @missing; print "unable to glue $n mapped functions:\n"; - print "--> $_\n" for @missing; + print " $_\n" for sort @missing; } else { print "all mapped functions are glued\n";