Call select's 4th arg's magic

[perl #120102] CORE::select ignoring timeout var's magic Patch by Eric, with tested added by davem.
Perl · Oct 18, 2013 · 90eaaf0 · 90eaaf0
1 parent a7ed8fa
commit 90eaaf0
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 2 deletions.
diff --git a/pp_sys.c b/pp_sys.c
@@ -1159,8 +1159,9 @@ PP(pp_sselect)
 #  endif
 
     sv = SP[4];
+    SvGETMAGIC(sv);
     if (SvOK(sv)) {
-	value = SvNV(sv);
+	value = SvNV_nomg(sv);
 	if (value < 0.0)
 	    value = 0.0;
 	timebuf.tv_sec = (long)value;

diff --git a/t/op/sselect.t b/t/op/sselect.t
@@ -9,7 +9,7 @@ BEGIN {
 
 require 'test.pl';
 
-plan (14);
+plan (15);
 
 my $blank = "";
 eval {select undef, $blank, $blank, 0};
@@ -74,3 +74,20 @@ $t1 = time;
 $diff = $t1-$t0;
 ok($diff >= $sleep-$under, "select(\$e,u,u,\$sleep): at least $sleep seconds have passed");
 note("diff=$diff under=$under");
+
+# [perl #120102] CORE::select ignoring timeout var's magic
+
+{
+    package RT120102;
+
+    my $count = 0;
+
+    sub TIESCALAR { bless [] }
+    sub FETCH { $count++; 0.1 }
+
+    my $sleep;
+
+    tie $sleep, 'RT120102';
+    select (undef, undef, undef, $sleep);
+    ::is($count, 1, 'RT120102');
+}