perl-background-fix.patch


1
2
3
4
5
6
7
8
9
10
11

--- src/perl/background
+++ src/perl/background
@@ -988,7 +988,7 @@
          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');
 
       $img = $img->tint ($color)         if $color ne "rgb:00/00/00";
       $img = $img->muladd (1 - $fade, 0) if $fade;