diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-10 08:17:07 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-10 08:17:07 +0000 |
| commit | 5108dc18037af131227ae095719eaab3a8fd54cb (patch) | |
| tree | 7dfd6e6f93227cd205c178153cca80a59f39a1a7 /warnings.pl | |
| parent | ce9440c8a632181326295941c376dfe0ad85b93f (diff) | |
| download | perl-5108dc18037af131227ae095719eaab3a8fd54cb.tar.gz | |
If we use @{[]} (a.k.a. baby-cart) interpolation, we got warnings
when $" is undefined.
p4raw-id: //depot/perl@32090
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/warnings.pl b/warnings.pl index 148b408f57..4168c5871a 100644 --- a/warnings.pl +++ b/warnings.pl @@ -440,9 +440,9 @@ our $VERSION = '1.06'; # Verify that we're called correctly so that warnings will work. # see also strict.pm. -unless ( __FILE__ =~ /(^|[\/\\])\Q@{[__PACKAGE__]}\E\.pmc?$/ ) { +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 |