From 5dc25a8b094d1c6f21dbe71580c6b0a2e6f74842 Mon Sep 17 00:00:00 2001
From: Michael Bayne <mdb@threerings.net>
Date: Mon, 28 Jul 2003 04:07:52 +0000
Subject: [PATCH] Print debug messages to STDERR.

git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@2733 542714f4-19e9-0310-aa3c-eee0fc999fb1
---
 bin/matchclasses | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/bin/matchclasses b/bin/matchclasses
index cd68eb94a..b5e6d30d5 100755
--- a/bin/matchclasses
+++ b/bin/matchclasses
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: matchclasses,v 1.8 2003/07/24 23:51:50 mdb Exp $
+# $Id: matchclasses,v 1.9 2003/07/28 04:07:52 mdb Exp $
 #
 # A script which inspects a hierarchy of classes and generates lists of
 # 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 $carg = "'" . join("' '", @cargs) . "'";
 
-    # print "javap -classpath $classpath $carg\n";
+    # print STDERR "javap -classpath $classpath $carg\n";
 
     if (!open(JAVAP, "javap -classpath $classpath $carg|")) {
         warn "Can't inspect $carg: $!\n";
@@ -163,7 +163,7 @@ foreach $class (@classes) {
 foreach $class (sort keys %matches) {
     print defined $orig{$class} ?  "$orig{$class}\n" :  "$class\n";
 }
-# print join("\n", ) . "\n";
+# print STDERR join("\n", ) . "\n";
 
 # Guess what this does.
 sub min {
@@ -174,11 +174,11 @@ sub min {
 # Matches a class declaration on the supplied line
 sub match_class {
     my ($line) = @_;
-    # print "Matching $line\n";
+    # print STDERR "Matching $line\n";
     if ($line !~ m:[a-z ]*(class|interface) ([A-Za-z0-9.\$]+):) {
         return undef;
     }
-    # print "Matched $2\n";
+    # print STDERR "Matched $2\n";
     my $class = clean_class($2);
     $class =~ s: ::g;
     return $class;