diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-01-04 11:36:25 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-01-06 16:14:14 +0100 |
| commit | 410c1a5e7498757c39d2940d00926fe55b54a3b6 (patch) | |
| tree | c6a7e29ab15c5802ca57f025ab268531d5695aec /t/lib | |
| parent | 27a7e72b1a90477d91cc29749006be0d6ce6b9cb (diff) | |
| download | perl-smoke-me/deprecate-any-defined-array.tar.gz | |
defined(@array) now also warns for package variables.smoke-me/deprecate-any-defined-array
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/strict/refs | 2 | ||||
| -rw-r--r-- | t/lib/warnings/op | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/t/lib/strict/refs b/t/lib/strict/refs index 09b962f71b..d9bff7cd84 100644 --- a/t/lib/strict/refs +++ b/t/lib/strict/refs @@ -322,6 +322,8 @@ use strict 'refs'; my $x = "foo"; defined @$x; EXPECT +defined(@array) is deprecated at - line 4. + (Maybe you should just omit the defined()?) Can't use string ("foo") as an ARRAY ref while "strict refs" in use at - line 4. ######## # [perl #37886] strict 'refs' doesn't apply inside defined diff --git a/t/lib/warnings/op b/t/lib/warnings/op index b44910316f..344cf121d7 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -799,7 +799,6 @@ my $a EXPECT ######## # op.c -# TODO - defined @::array doesn't warn yet. defined(@a); EXPECT defined(@array) is deprecated at - line 2. |