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