Re^19: Using STDIN after exec() with ActiveState Perl

in reply to Re^18: Using STDIN after exec() with ActiveState Perl
in thread Using STDIN after exec() with ActiveState Perl

output of perl -V: http://pastebin.com/6bE8L9vA

This is perlmonks, we don't need pastebins

Anyway, 5.20.1 is plenty new

Yeah, swig perl "%ENV" finds %ENV vs C's setenv which suggests Env::C - Get/Set/Unset Environment Variables on the C level

"plain xs" works for gettin %ENV changes reflected ; I never cared much for swig

#!/usr/bin/perl --
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'modSV', CLEAN_AFTER_BUILD => 0;


#include <stdlib.h> /* setenv/getenv */

char* modSV() {
    return getenv("HORSEY");
}

END_C


use Data::Dump qw/ dd /;
dd( $ENV{HORSEY} => modSV() );
$ENV{HORSEY}='Neigh';
dd( $ENV{HORSEY} => modSV() );
__END__
(undef, undef)
("Neigh", "Neigh")
[download]

In Section Seekers of Perl Wisdom