| … | |
… | |
| 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 { |
| … | |
… | |
| 1601 | delete $env->{LC_ALL}; |
1595 | delete $env->{LC_ALL}; |
| 1602 | $env->{LC_CTYPE} = $self->{term}->locale; |
1596 | $env->{LC_CTYPE} = $self->{term}->locale; |
| 1603 | |
1597 | |
| 1604 | urxvt::term->new ($env, "popup", |
1598 | urxvt::term->new ($env, "popup", |
| 1605 | "--perl-lib" => "", "--perl-ext-common" => "", |
1599 | "--perl-lib" => "", "--perl-ext-common" => "", |
|
|
1600 | "-pty-fd" => -1, "-sl" => 0, |
| 1606 | "-pty-fd" => -1, "-sl" => 0, "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1601 | "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
| 1607 | "--transient-for" => $self->{term}->parent, |
1602 | "--transient-for" => $self->{term}->parent, |
| 1608 | "-display" => $self->{term}->display_id, |
1603 | "-display" => $self->{term}->display_id, |
| 1609 | "-pe" => "urxvt-popup") |
1604 | "-pe" => "urxvt-popup") |
| 1610 | or die "unable to create popup window\n"; |
1605 | or die "unable to create popup window\n"; |
| 1611 | } |
1606 | } |
