quotemeta the path to avoid "Unrecognized escape \s passed through" on win32

[p5sagit/local-lib.git] / maint / gen-tests.pl

diff --git a/maint/gen-tests.pl b/maint/gen-tests.pl
index 62044e7..c75a806 100755 (executable)
--- a/maint/gen-tests.pl
+++ b/maint/gen-tests.pl
@@ -12,11 +12,25 @@ my ($test, $segment, $text);
 
 sub mode::outer {
   shift;
-  if (shift =~ /^=for test (\S+)(?:\s+(\S+))?/) {
+  my $line = $_[0];
+  if ($line =~ /^=for test (\S+)(?:\s+(\S+))?/) {
     $mode = 'inner';
     ($test, $segment) = ($1, $2);
     $segment ||= '';
     $text = '';
+  } elsif ($line =~ /^=begin testing/) {
+    $mode = 'find_comment';
+    ($test, $segment, $text) = ('', '', '');
+  }
+}
+
+sub mode::find_comment {
+  shift;
+  my $line = $_[0];
+  if ($line =~ /^\#\:\: test (\S+)(?:\s+(\S+))?/) {
+    $mode = 'inner';
+    ($test, $segment) = ($1, $2);
+    $segment ||= '';
   }
 }