source:
packages/net/wing/patches/011perlcompat.patch
@
27462
Last change on this file since 27462 was 27462, checked in by jow, 6 years ago  

File size: 605 bytes 

doc/clickelem2man
a b sub nroff_fixfP ($$) { 227 227 } 228 228 229 229 sub nroff_manref ($$$$) { 230 map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @_; 230 my @x = @_; 231 map { $_ = "\"$_\"" if (s/\"/\\(dq/g) } @x; 231 232 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]; 234 235 } else { 235 $x = "\n.RM " . $ _[0] . " " . $_[1] . " " . $_[2];236 $x = "\n.RM " . $x[0] . " " . $x[1] . " " . $x[2]; 236 237 } 237 $x .= " " . $ _[3] if $_[3] ne "";238 $x .= " " . $x[3] if $x[3] ne ""; 238 239 $x . "\n"; 239 240 } 240 241
Note: See TracBrowser
for help on using the repository browser.