| … | |
… | |
| 928 | local $TERM = shift; |
928 | local $TERM = shift; |
| 929 | my $htype = shift; |
929 | my $htype = shift; |
| 930 | |
930 | |
| 931 | if ($htype == 0) { # INIT |
931 | if ($htype == 0) { # INIT |
| 932 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
932 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
| 933 | |
933 | |
| 934 | my %ext_arg; |
934 | my %ext_arg; |
| 935 | |
935 | |
| 936 | { |
936 | { |
| 937 | my @init = @TERM_INIT; |
937 | my @init = @TERM_INIT; |
| 938 | @TERM_INIT = (); |
938 | @TERM_INIT = (); |
| … | |
… | |
| 2002 | ->new |
2002 | ->new |
| 2003 | ->interval (1) |
2003 | ->interval (1) |
| 2004 | ->cb (sub { |
2004 | ->cb (sub { |
| 2005 | $term->{overlay}->set (0, 0, |
2005 | $term->{overlay}->set (0, 0, |
| 2006 | sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]); |
2006 | sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]); |
| 2007 | }); |
2007 | }); |
| 2008 | |
2008 | |
| 2009 | =over 4 |
2009 | =over 4 |
| 2010 | |
2010 | |
| 2011 | =item $timer = new urxvt::timer |
2011 | =item $timer = new urxvt::timer |
| 2012 | |
2012 | |
| … | |
… | |
| 2135 | ->new |
2135 | ->new |
| 2136 | ->start ($pid) |
2136 | ->start ($pid) |
| 2137 | ->cb (sub { |
2137 | ->cb (sub { |
| 2138 | my ($pw, $exit_status) = @_; |
2138 | my ($pw, $exit_status) = @_; |
| 2139 | ... |
2139 | ... |
| 2140 | }); |
2140 | }); |
| 2141 | |
2141 | |
| 2142 | =over 4 |
2142 | =over 4 |
| 2143 | |
2143 | |
| 2144 | =item $pw = new urxvt::pw |
2144 | =item $pw = new urxvt::pw |
| 2145 | |
2145 | |
