Changeset 22922 for src

Timestamp:

11/08/08 09:37:59 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] check: working directory should end with src/perl6

Files:

• src/perl6/spec_highlight (modified) (2 diffs)

src/perl6/spec_highlight

@@ -9 +9 @@
 use File::Basename;
 use File::Copy;
+use Cwd;
 use POSIX qw(nice); 
 
@@ -21 +22 @@
 
 WARNING
+
+#sanity check: working directory should end with src/perl6
+my $cwd = getcwd();
+unless($cwd =~ m{src/perl6$}) {
+    die "Please run $PROGRAM_NAME in src/perl6\n";
+}
 
 #sanity check: make sure STD.pm is correctly built