… | |
… | |
496 | $msg .= "\n" |
496 | $msg .= "\n" |
497 | unless $msg =~ /\n$/; |
497 | unless $msg =~ /\n$/; |
498 | urxvt::warn ($msg); |
498 | urxvt::warn ($msg); |
499 | }; |
499 | }; |
500 | |
500 | |
|
|
501 | # %ENV is the original startup environment |
501 | # delete $ENV{IFS}; |
502 | delete $ENV{IFS}; |
502 | # delete $ENV{CDPATH}; |
503 | delete $ENV{CDPATH}; |
503 | # delete $ENV{BASH_ENV}; |
504 | delete $ENV{BASH_ENV}; |
504 | # $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; |
505 | $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; |
505 | } |
506 | } |
506 | |
507 | |
507 | my @hook_count; |
508 | my @hook_count; |
508 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
509 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
509 | |
510 | |