$Is_MSWin32 ? '.\perl' :
'./perl');
+END {
+ # On VMS, environment variable changes are peristent after perl exits
+ delete $ENV{'FOO'} if $Is_VMS;
+}
+
eval '$ENV{"FOO"} = "hi there";'; # check that ENV is inited inside eval
# cmd.exe will echo 'variable=value' but 4nt will echo just the value
# -- Nikola Knezevic
{
my $ok = 1;
my $warn = '';
- local $SIG{'__WARN__'} = sub { $ok = 0; $warn = join '', @_; };
+ local $SIG{'__WARN__'} = sub { $ok = 0; $warn = join '', @_; $warn =~ s/\n$//; };
$! = undef;
local $TODO = $Is_VMS ? "'\$!=undef' does throw a warning" : '';
ok($ok, $warn);
is delete $SIG{HUNGRY}, undef, "HUNGRY remains gone";
# Test deleting signals that we never set
-foreach my $sig (qw(__DIE__ _BOGUS_HOOK PIPE THIRSTY)) {
+foreach my $sig (qw(__DIE__ _BOGUS_HOOK KILL THIRSTY)) {
is $SIG{$sig}, undef, "$sig is not present";
is delete $SIG{$sig}, undef, "delete of $sig returns undef";
}