diff options
| author | Ruslan Zakirov <ruz@bestpractical.com> | 2010-05-03 23:08:46 +0200 |
|---|---|---|
| committer | Vincent Pit <vince@profvince.com> | 2010-05-03 23:08:46 +0200 |
| commit | 538f5756c002f0583190831238bbf6bd54855cdc (patch) | |
| tree | f1b6fdca83e77fcc40c6c73b5ec944a7b7703cf3 /dist/B-Deparse | |
| parent | 6550424581c83583e72aa799a12d2a2e68d9e5f1 (diff) | |
| download | perl-538f5756c002f0583190831238bbf6bd54855cdc.tar.gz | |
shift; optimization
Diffstat (limited to 'dist/B-Deparse')
| -rw-r--r-- | dist/B-Deparse/t/deparse.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index e3c62baeeb..3a7d2aa8eb 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -17,7 +17,7 @@ BEGIN { require feature; feature->import(':5.10'); } -use Test::More tests => 85; +use Test::More tests => 89; use Config (); use B::Deparse; @@ -633,3 +633,15 @@ $r = qr/foo/; package Foo; label: print 123; } +#### +shift; +>>>> +shift(); +#### +shift @_; +#### +pop; +>>>> +pop(); +#### +pop @_; |