Remove unused variable.

[pintos-anon] / src / tests / tests.pm

diff --git a/src/tests/tests.pm b/src/tests/tests.pm
index 4cec83d656cdd1da3aee01d04a85582e4e10816b..01259dd2b7e6b27628945339a64be895631becf2 100644 (file)
--- a/src/tests/tests.pm
+++ b/src/tests/tests.pm
@@ -8,7 +8,6 @@ sub pass;
 
 die if @ARGV != 2;
 our ($test, $src_dir) = @ARGV;
-our ($src_stem) = "$src_dir/$test";
 
 my ($msg_file) = tempfile ();
 select ($msg_file);
@@ -173,7 +172,6 @@ sub finish {
     seek ($msg_file, 0, 0);
     while (<$msg_file>) {
        $messages .= $_;
-       print "'$_'";
     }
     close ($msg_file);