| Subject: | Noisy tests (Unescaped left brace in regex is deprecated) |
Perl 5.17 deprecates unescaped literal left braces in regular
expressions, and emits a warning when they are encountered. This makes
the Mac-Carbon test suite noisy. The attached patch fixes the problem.
I have called this unimportant because it is only warnings at this
point, and in a development release at that.
| Subject: | Mac-Files.patch |
--- Files/Files.old 2009-09-08 02:12:37.000000000 -0400
+++ Files/Files.pm 2012-07-21 12:05:12.000000000 -0400
@@ -57,7 +57,7 @@
my @constants;
seek DATA, 0, 0; # this reads the entire script
my $data = do { local $/; <DATA> };
- while ($data =~ m|=item (\w+)\s+(?:([^\n]+)\n\s+)?=cut\s+sub \1 \(\) { (\S+) }|g) {
+ while ($data =~ m|=item (\w+)\s+(?:([^\n]+)\n\s+)?=cut\s+sub \1 \(\) \{ (\S+) \}|g) {
my($symbol, $desc, $value ) = ($1, $2, $3);
push @constants, $symbol;
}