Oh fucking hell. I left some debugging output in here.
git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@2726 542714f4-19e9-0310-aa3c-eee0fc999fb1
This commit is contained in:
+2
-2
@@ -1,6 +1,6 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
#
|
#
|
||||||
# $Id: matchclasses,v 1.7 2003/07/24 23:50:32 mdb Exp $
|
# $Id: matchclasses,v 1.8 2003/07/24 23:51:50 mdb Exp $
|
||||||
#
|
#
|
||||||
# A script which inspects a hierarchy of classes and generates lists of
|
# A script which inspects a hierarchy of classes and generates lists of
|
||||||
# classes that match specified criterion. The criterion are that a class
|
# classes that match specified criterion. The criterion are that a class
|
||||||
@@ -89,7 +89,7 @@ while (@gclasses) {
|
|||||||
my @cargs = splice(@gclasses, 0, min($ccount, 100));
|
my @cargs = splice(@gclasses, 0, min($ccount, 100));
|
||||||
my $carg = "'" . join("' '", @cargs) . "'";
|
my $carg = "'" . join("' '", @cargs) . "'";
|
||||||
|
|
||||||
print "javap -classpath $classpath $carg\n";
|
# print "javap -classpath $classpath $carg\n";
|
||||||
|
|
||||||
if (!open(JAVAP, "javap -classpath $classpath $carg|")) {
|
if (!open(JAVAP, "javap -classpath $classpath $carg|")) {
|
||||||
warn "Can't inspect $carg: $!\n";
|
warn "Can't inspect $carg: $!\n";
|
||||||
|
|||||||
Reference in New Issue
Block a user