source: packages/net/wing/patches/011-perl-compat.patch @ 27462

Last change on this file since 27462 was 27462, checked in by jow, 5 years ago

[packages] wing: fix illegal modification of constant value triggered in at least perl 5.8.8, observed on CentOS 5.6

File size: 605 bytes
  • doc/click-elem2man

    a b sub nroff_fixfP ($$) { 
    227227} 
    228228 
    229229sub nroff_manref ($$$$) { 
    230     map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @_; 
     230    my @x = @_; 
     231    map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @x; 
    231232    my($x); 
    232     if ($_[0] eq "") { 
    233         $x = "\n.M " . $_[1] . " " . $_[2]; 
     233    if ($x[0] eq "") { 
     234        $x = "\n.M " . $x[1] . " " . $x[2]; 
    234235    } else { 
    235         $x = "\n.RM " . $_[0] . " " . $_[1] . " " . $_[2]; 
     236        $x = "\n.RM " . $x[0] . " " . $x[1] . " " . $x[2]; 
    236237    } 
    237     $x .= " " . $_[3] if $_[3] ne ""; 
     238    $x .= " " . $x[3] if $x[3] ne ""; 
    238239    $x . "\n"; 
    239240} 
    240241 
Note: See TracBrowser for help on using the repository browser.