[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/background

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.104 by root, Sat Dec 4 22:56:49 2021 UTC vs.
Revision 1.110 by sf-exg, Tue Dec 6 09:02:19 2022 UTC

       return $img
          if FOCUS;
       my $fade   = @_ >= 1 ? $_[0] : defined $self->resource ("fade") ? $self->resource ("fade") * 0.01 : 0;
-      my $color  = @_ >= 2 ? $_[1] : $self->resource ("color+" . urxvt::Color_fade);
+      my $color  = @_ >= 2 ? $_[1] : $self->resource ("color+" . &urxvt::Color_fade ()); # Color_fade not always available
       $img = $img->tint ($color)         if $color ne "rgb:00/00/00";
       $img = $img->muladd (1 - $fade, 0) if $fade;
       $img
       }
    }
 }
 # helper function, quote string as perl without allowing
-# any code execution or other shenanigans. does not
+# any code execution or other shenanigans.
-# support binary NULs in string.
 sub q0 {
-   (my $str = shift) =~ s/\x00//g; # make sure there really aren't any embedded NULs
+   "qq\x00\Q$_[0]\E\x00"
-   "q\x00$str\x00"
 }
 sub old_bg_expr {
    my ($self) = @_;
 }
 sub on_osc_seq {
    my ($self, $op, $arg) = @_;
-   $op eq "20" or $op eq "706"
+   $op eq "20" or $op eq "705"
       or return;
    $self->{bg_opts}
       or $self->parse_bgopts;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines