Now add ../lib to @INC.
authorBen Pfaff <blp@cs.stanford.edu>
Tue, 23 Nov 2004 06:51:08 +0000 (06:51 +0000)
committerBen Pfaff <blp@cs.stanford.edu>
Tue, 23 Nov 2004 06:51:08 +0000 (06:51 +0000)
grading/vm/run-tests

index b6987fe000e012fc2eadfeaaa437794836d8d55f..161a6a8cc52a9b56138c758d86f24e1c7ba6514f 100755 (executable)
@@ -1,5 +1,14 @@
 #! /usr/bin/perl
 
+# Find the directory that contains the grading files.
+our ($GRADES_DIR);
+
+BEGIN {
+    ($GRADES_DIR = $0) =~ s#/[^/]+$##;
+    -d $GRADES_DIR or die "$GRADES_DIR: stat: $!\n";
+    unshift @INC, "$GRADES_DIR/../lib";
+}
+
 use warnings;
 use strict;
 use POSIX;
@@ -97,11 +106,6 @@ if ($grade) {
     exit 0;
 }
 
-# Find the directory that contains the grading files.
-our ($GRADES_DIR);
-($GRADES_DIR = $0) =~ s#/[^/]+$##;
--d $GRADES_DIR or die "$GRADES_DIR: stat: $!\n";
-
 if ($clean) {
     # Verify that we're roughly in the correct directory
     # before we go blasting away files.