This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix for [perl #61976] Errno ($!) not evaluated to a error message string
authorDavid Mitchell <davem@iabyn.com>
Mon, 11 Jan 2010 21:42:07 +0000 (21:42 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 12 Jan 2010 00:26:59 +0000 (00:26 +0000)
(5.10.0 in taint mode)

Change 27176 / 2a509ed3c095f7d712013e653f68821f6bb2d6db fixed a taint
bug, which as a side effect, meant that $! used within a tainted expression
failed to have a string value.

This quick fix just makes sure the POK flag is set (prior to it being
shifted back to pPOK).

mg.c
t/op/taint.t

diff --git a/mg.c b/mg.c
index fb91325..ddfc2ff 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1048,6 +1048,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
        else
 #endif
        sv_setpv(sv, errno ? Strerror(errno) : "");
+       SvPOK_on(sv);   /* may have got removed during taint processing */
        RESTORE_ERRNO;
        }
 #endif
index 796b6fa..161073d 100644 (file)
@@ -17,7 +17,7 @@ use Config;
 use File::Spec::Functions;
 
 BEGIN { require './test.pl'; }
-plan tests => 301;
+plan tests => 302;
 
 $| = 1;
 
@@ -1308,6 +1308,17 @@ foreach my $ord (78, 163, 256) {
     ok(tainted($zz), "pack a*a* preserves tainting");
 }
 
+# Bug RT #61976 tainted $! would show numeric rather than string value
+
+{
+    my $tainted_path = substr($^X,0,0) . "/no/such/file";
+    my $err;
+    # $! is used in a tainted expression, so gets tainted
+    open my $fh, $tainted_path or $err= "$!";
+    unlike($err, qr/^\d+$/, 'tainted $!');
+}
+
+
 # This may bomb out with the alarm signal so keep it last
 SKIP: {
     skip "No alarm()"  unless $Config{d_alarm};