| Subject: | Windows & the substitute key |
There appears to be a problem with the substitute key on Windows, for at
least Perl 5.6.1, which cause this test script to terminate immediately
on encountering the character. The character is '0x1a'.
The attached patch, corrects 04_match.t, to ignore testing of the
substitute character on Windows. I haven't tested this on 5.8, but I
suspect by the CPAN testers results, that it works fine.
| Subject: | substitute.patch |
--- Regexp-Assemble-0.23/t/04_match.t Sat Nov 26 17:19:24 2005
+++ Regexp-Assemble-0.23-barbie/t/04_match.t Mon Jan 30 12:04:58 2006
@@ -21,6 +21,12 @@
my $fixed = 'The scalar remains the same';
$_ = $fixed;
+# There appears to be a problem with the substitute key on Windows, for
+# at least Perl 5.6.1, which cause this test script to terminate
+# immediately on encountering the character.
+my $win32_56x = ($^O eq 'MSWin32' && $^[ < 5.008) ? 1 : 0;
+my $subchr = 0x1a;
+
sub match {
my $re = Regexp::Assemble->new;
my $rela = Regexp::Assemble->new->lookahead(1);
@@ -80,24 +86,31 @@
for my $outer ( 0 .. 15 ) {
my $re = Regexp::Assemble->new;
for my $inner ( 0 .. 15 ) {
- $re->add( quotemeta( chr( $outer*16 + $inner )));
+ next if($win32_56x && $subchr == ($outer*16 + $inner)); # sub key
+ $re->add( chr( $outer*16 + $inner ));
}
for my $inner ( 0 .. 15 ) {
- my $ch = chr($outer*16 + $inner);
- ok( $ch =~ /^$re$/,
- "run $ch ($outer:$inner) $re"
- );
+ if($win32_56x && $subchr == ($outer*16 + $inner)) {
+ ok(1);
+ } else {
+ my $ch = chr($outer*16 + $inner);
+ ok( $ch =~ /^$re$/,
+ "run $ch ($outer:$inner) $re"
+ );
+ }
}
}
}
for( 0 .. 255 ) {
+ if($win32_56x && $subchr == $_) { ok(1);next; }
my $ch = chr($_);
my $qm = Regexp::Assemble->new->add(quotemeta($ch));
ok( $ch =~ /^$qm$/, "$_: quotemeta($ch)" );
}
for( 0 .. 127 ) {
+ if($win32_56x && $subchr == $_) { ok(1);ok(1);next; }
my $lo = chr($_);
my $hi = chr($_+128);
my $qm = Regexp::Assemble->new->add(