net/wing/patches/011-perl-compat.patch

   1 --- a/doc/click-elem2man
   2 +++ b/doc/click-elem2man
   3 @@ -227,14 +227,15 @@ sub nroff_fixfP ($$) {
   4  }
   5
   6  sub nroff_manref ($$$$) {
   7 -    map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @_;
   8 +    my @x = @_;
   9 +    map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @x;
  10      my($x);
  11 -    if ($_[0] eq "") {
  12 -       $x = "\n.M " . $_[1] . " " . $_[2];
  13 +    if ($x[0] eq "") {
  14 +       $x = "\n.M " . $x[1] . " " . $x[2];
  15      } else {
  16 -       $x = "\n.RM " . $_[0] . " " . $_[1] . " " . $_[2];
  17 +       $x = "\n.RM " . $x[0] . " " . $x[1] . " " . $x[2];
  18      }
  19 -    $x .= " " . $_[3] if $_[3] ne "";
  20 +    $x .= " " . $x[3] if $x[3] ne "";
  21      $x . "\n";
  22  }
  23