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

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.48 by root, Sun Jun 10 15:01:14 2012 UTC vs.
Revision 1.49 by root, Sun Jun 10 15:29:18 2012 UTC

 =back
 =cut
+our %_IMGCACHE;
 our $HOME;
 our ($self, $old, $new);
 our ($x, $y, $w, $h);
 # enforce at least this interval between updates
    sub contrast($$;$$;$) {
       my $img = pop;
       my ($r, $g, $b, $a) = @_;
-      ($g, $b) = ($r, $r) if @_ < 4;
+      ($g, $b) = ($r, $r) if @_ < 3;
-      $a       = 1        if @_ < 5;
+      $a       = 1        if @_ < 4;
       $img = $img->clone;
       $img->contrast ($r, $g, $b, $a);
       $img
    }
    sub brightness($$;$$;$) {
       my $img = pop;
       my ($r, $g, $b, $a) = @_;
-      ($g, $b) = ($r, $r) if @_ < 4;
+      ($g, $b) = ($r, $r) if @_ < 3;
-      $a       = 1        if @_ < 5;
+      $a       = 1        if @_ < 4;
       $img = $img->clone;
       $img->brightness ($r, $g, $b, $a);
       $img
    }

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