Change 32090 by [EMAIL PROTECTED] on 2007/10/10 08:17:07
If we use @{[]} (a.k.a. baby-cart) interpolation, we got warnings
when $" is undefined.
Affected files ...
... //depot/perl/lib/strict.pm#24 edit
... //depot/perl/lib/warnings.pm#45 edit
... //depot/perl/warnings.pl#61 edit
Differences ...
==== //depot/perl/lib/strict.pm#24 (text) ====
Index: perl/lib/strict.pm
--- perl/lib/strict.pm#23~32083~ 2007-10-09 08:26:26.000000000 -0700
+++ perl/lib/strict.pm 2007-10-10 01:17:07.000000000 -0700
@@ -3,10 +3,10 @@
$strict::VERSION = "1.04";
# Verify that we're called correctly so that strictures will work.
-unless ( __FILE__ =~ /(^|[\/\\])[EMAIL PROTECTED]/ ) {
+unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {
# Can't use Carp, since Carp uses us!
my (undef, $f, $l) = caller;
- die("Incorrect use of pragma '@{[__PACKAGE__,]}' at $f line $l.\n");
+ die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
}
my %bitmask = (
==== //depot/perl/lib/warnings.pm#45 (text+w) ====
Index: perl/lib/warnings.pm
--- perl/lib/warnings.pm#44~32083~ 2007-10-09 08:26:26.000000000 -0700
+++ perl/lib/warnings.pm 2007-10-10 01:17:07.000000000 -0700
@@ -10,9 +10,9 @@
# Verify that we're called correctly so that warnings will work.
# see also strict.pm.
-unless ( __FILE__ =~ /(^|[\/\\])[EMAIL PROTECTED]/ ) {
+unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {
my (undef, $f, $l) = caller;
- die("Incorrect use of pragma '@{[__PACKAGE__,]}' at $f line $l.\n");
+ die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
}
=head1 NAME
==== //depot/perl/warnings.pl#61 (text) ====
Index: perl/warnings.pl
--- perl/warnings.pl#60~32083~ 2007-10-09 08:26:26.000000000 -0700
+++ perl/warnings.pl 2007-10-10 01:17:07.000000000 -0700
@@ -440,9 +440,9 @@
# Verify that we're called correctly so that warnings will work.
# see also strict.pm.
-unless ( __FILE__ =~ /(^|[\/\\])[EMAIL PROTECTED]/ ) {
+unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {
my (undef, $f, $l) = caller;
- die("Incorrect use of pragma '@{[__PACKAGE__,]}' at $f line $l.\n");
+ die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
}
=head1 NAME
End of Patch.
