You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/09/17 02:34:59 UTC
cvs commit: modperl-2.0/util xs_check.pl
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";