… | |
… | |
630 | my $msg = join "", @_; |
630 | my $msg = join "", @_; |
631 | $msg .= "\n" |
631 | $msg .= "\n" |
632 | unless $msg =~ /\n$/; |
632 | unless $msg =~ /\n$/; |
633 | urxvt::warn ($msg); |
633 | urxvt::warn ($msg); |
634 | }; |
634 | }; |
635 | |
|
|
636 | # %ENV is the original startup environment |
|
|
637 | delete $ENV{IFS}; |
|
|
638 | delete $ENV{CDPATH}; |
|
|
639 | delete $ENV{BASH_ENV}; |
|
|
640 | $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; |
|
|
641 | } |
635 | } |
642 | |
636 | |
643 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
637 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
644 | |
638 | |
645 | sub verbose { |
639 | sub verbose { |