pod2man.pl (59191) | pod2man.pl (76866) |
---|---|
1: #!/usr/bin/perl-5.005 2 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' 3 if $running_under_some_shell; 4 5$DEF_PM_SECTION = '3pm' || '3'; 6 7=head1 NAME 8 --- 402 unchanged lines hidden (view full) --- 411 warn "$0: Improper man page - no dash in NAME header in paragraph $. of $ARGV[0]\n" 412 } else { 413 my @n = split /\s+-+\s+/; 414 if (@n != 2) { 415 $oops++; 416 warn "$0: Improper man page - malformed NAME header in paragraph $. of $ARGV[0]\n" 417 } 418 else { | 1: #!/usr/bin/perl-5.005 2 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' 3 if $running_under_some_shell; 4 5$DEF_PM_SECTION = '3pm' || '3'; 6 7=head1 NAME 8 --- 402 unchanged lines hidden (view full) --- 411 warn "$0: Improper man page - no dash in NAME header in paragraph $. of $ARGV[0]\n" 412 } else { 413 my @n = split /\s+-+\s+/; 414 if (@n != 2) { 415 $oops++; 416 warn "$0: Improper man page - malformed NAME header in paragraph $. of $ARGV[0]\n" 417 } 418 else { |
419 $n[0] =~ s/\n/ /; 420 $n[1] =~ s/\n/ /; |
|
419 %namedesc = @n; 420 } 421 } 422 last FCHECK; 423 } 424 next if /^=cut\b/; # DB_File and Net::Ping have =cut before NAME 425 next if /^=pod\b/; # It is OK to have =pod before NAME 426 die "$0: Invalid man page - 1st pod line is not NAME in $ARGV[0]\n" unless $lax; --- 755 unchanged lines hidden --- | 421 %namedesc = @n; 422 } 423 } 424 last FCHECK; 425 } 426 next if /^=cut\b/; # DB_File and Net::Ping have =cut before NAME 427 next if /^=pod\b/; # It is OK to have =pod before NAME 428 die "$0: Invalid man page - 1st pod line is not NAME in $ARGV[0]\n" unless $lax; --- 755 unchanged lines hidden --- |