| … | |
… | |
| 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 { |
