ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.205 by root, Tue Jun 5 19:32:29 2012 UTC vs.
Revision 1.206 by root, Tue Jun 5 21:06:15 2012 UTC

942 urxvt::warn ($msg); 942 urxvt::warn ($msg);
943 }; 943 };
944} 944}
945 945
946no warnings 'utf8'; 946no warnings 'utf8';
947
948sub resource {
949 my ($term, $name, $isarg, $flag, $value) = @_;
950
951 warn "resourece<@_>\n";#d#
952
953 0
954}
947 955
948my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 956my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
949 957
950sub verbose { 958sub verbose {
951 my ($level, $msg) = @_; 959 my ($level, $msg) = @_;
1100 while (my ($name, $cb) = each %hook) { 1108 while (my ($name, $cb) = each %hook) {
1101 my $htype = $HOOKTYPE{uc $name}; 1109 my $htype = $HOOKTYPE{uc $name};
1102 defined $htype 1110 defined $htype
1103 or Carp::croak "unsupported hook type '$name'"; 1111 or Carp::croak "unsupported hook type '$name'";
1104 1112
1105 $self->modify_should_invoke_count ($htype, +1) 1113 $self->set_should_invoke ($htype, +1)
1106 unless exists $self->{term}{_hook}[$htype]{$pkg}; 1114 unless exists $self->{term}{_hook}[$htype]{$pkg};
1107 1115
1108 $self->{term}{_hook}[$htype]{$pkg} = $cb; 1116 $self->{term}{_hook}[$htype]{$pkg} = $cb;
1109 } 1117 }
1110} 1118}
1116 for my $name (@hook) { 1124 for my $name (@hook) {
1117 my $htype = $HOOKTYPE{uc $name}; 1125 my $htype = $HOOKTYPE{uc $name};
1118 defined $htype 1126 defined $htype
1119 or Carp::croak "unsupported hook type '$name'"; 1127 or Carp::croak "unsupported hook type '$name'";
1120 1128
1121 $self->modify_should_invoke_count ($htype, -1) 1129 $self->set_should_invoke ($htype, -1)
1122 if delete $self->{term}{_hook}[$htype]{$pkg}; 1130 if delete $self->{term}{_hook}[$htype]{$pkg};
1123 } 1131 }
1124} 1132}
1125 1133
1126our $AUTOLOAD; 1134our $AUTOLOAD;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines