Index: MANIFEST
===================================================================
--- MANIFEST	(revision 28098)
+++ MANIFEST	(working copy)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Wed Jun  4 20:37:00 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Thu Jun  5 15:13:47 2008 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -1961,6 +1961,7 @@
 languages/perl6/t/harness                                   [perl6]
 languages/perl6/t/pmc/mutable.t                             [perl6]
 languages/perl6/t/spectest_regression.data                  [perl6]
+languages/perl6/tools/fudge_purity_inspector.pl             [perl6]
 languages/perl6/tools/update_passing_test_data.pl           [perl6]
 languages/pheme/MAINTAINER                                  [pheme]
 languages/pheme/MANIFEST                                    [pheme]
Index: languages/perl6/tools/fudge_purity_inspector.pl
===================================================================
--- languages/perl6/tools/fudge_purity_inspector.pl	(revision 0)
+++ languages/perl6/tools/fudge_purity_inspector.pl	(revision 0)
@@ -0,0 +1,39 @@
+#! perl -w
+# Copyright (C) 2008, The Perl Foundation.
+# $Id$
+use strict;
+use warnings;
+
+my $input_file = shift @ARGV || 't/spectest_regression.data';
+my $impl = 'rakudo';
+
+open my $fh, '<', $input_file
+    or die "Can't open '$input_file' for reading: $!";
+
+print "The following files, if any, contain fudge directives,\n";
+print "although they are marked as pure:\n";
+
+while (<$fh>){
+    chomp;
+    next if  m/^#/ || m/^\s*$/;
+    my ($file, $comment) = split m/\s*#\s*/;
+    if ($comment && $comment eq 'pure'){
+        check_file_and_warn($file);
+    }
+}
+
+sub check_file_and_warn {
+    my $filename = shift;
+    $filename = "t/spec/$filename";
+#    warn "checking file <$filename>\n";
+    open my $fh, '<', $filename
+        or die "Can't opne file '$filename' for reading: $!";
+    my $re = qr{^\s*#\?$impl};
+    while (<$fh>) {
+        if (m/$re/){
+            print $filename, "\n";
+            last;
+        }
+    }
+    close $fh;
+}

Property changes on: languages/perl6/tools/fudge_purity_inspector.pl
___________________________________________________________________
Name: svn:mime-type
   + text/plain; charset=UTF-8
Name: svn:keywords
   + Author Date Id Revision
Name: svn:eol-style
   + native