diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-03-20 13:54:22 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-03-21 09:13:29 +0100 |
| commit | 08412a26636d262ee540d5a1a457daa7113cc608 (patch) | |
| tree | 780d2231a69c9c3a5d0e0990f9903e7208e6a53b | |
| parent | 14731ad1b39d44be8354a1cdd95deb70f2203fa7 (diff) | |
| download | perl-08412a26636d262ee540d5a1a457daa7113cc608.tar.gz | |
Change B::Deparse's test to test interpolation of @] instead of @*.
The test wasn't specifically relying on @*, so any unused punctuation
variable is equally good. $] isn't going away any time soon, hence @] is
unlikely to change.
| -rw-r--r-- | dist/B-Deparse/t/deparse.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index dce0460cc3..dc02c19844 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -211,11 +211,11 @@ like($a, qr/-e syntax OK/, "Deparse does not hang when traversing stash circularities"); # [perl #93990] -@* = (); -is($deparse->coderef2text(sub{ print "@{*}" }), +@] = (); +is($deparse->coderef2text(sub{ print "@{]}" }), q<{ - print "@{*}"; -}>, 'curly around to interpolate "@{*}"'); + print "@{]}"; +}>, 'curly around to interpolate "@{]}"'); is($deparse->coderef2text(sub{ print "@{-}" }), q<{ print "@-"; |