diff options
| -rw-r--r-- | lib/strict.pm | 4 | ||||
| -rw-r--r-- | lib/warnings.pm | 4 | ||||
| -rw-r--r-- | warnings.pl | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/lib/strict.pm b/lib/strict.pm index 3616753fce..053aae7501 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -3,10 +3,10 @@ package strict; $strict::VERSION = "1.04"; # Verify that we're called correctly so that strictures will work. -unless ( __FILE__ =~ /(^|[\/\\])\Q@{[__PACKAGE__]}\E\.pmc?$/ ) { +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 = ( diff --git a/lib/warnings.pm b/lib/warnings.pm index 679a883ed4..79a5aa8bb5 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -10,9 +10,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 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 |