From d2d95e1390fa8da3e5c59558c1a326336e57c9dc Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 18 Apr 2011 22:25:30 -0700
Subject: Make push, etc., work on tied scalars

I broke this with commit d4fc441
---
 t/op/tie_fetch_count.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t
index b0c1dd4c17..69d4619679 100644
--- a/t/op/tie_fetch_count.t
+++ b/t/op/tie_fetch_count.t
@@ -7,7 +7,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan (tests => 208);
+    plan (tests => 209);
 }
 
 use strict;
@@ -162,6 +162,7 @@ tie my $var1 => 'main', \1;
 $dummy  = $$var1        ; check_count '${}';
 tie my $var2 => 'main', [];
 $dummy  = @$var2        ; check_count '@{}';
+$dummy  = shift $var2   ; check_count 'shift arrayref';
 tie my $var3 => 'main', {};
 $dummy  = %$var3        ; check_count '%{}';
 {
-- 
cgit v1.2.1