diff options
| author |   afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
| commit | 6fb12b7054efc6b436584db6cef9c2f85c0d7e27 (patch) | |
| tree | aa09a524574ec7ae2f521a24573deeecb78ff66a /gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm | |
| parent | Add the Cammelia cipher to libcrypto. (diff) | |
| download | wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.tar.xz wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.zip | |
Import perl-5.20.1
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm b/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm index 6605fd47272..c7e83a837d3 100644 --- a/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm +++ b/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm @@ -2,7 +2,7 @@ package Module::Build::PodParser; use strict; use vars qw($VERSION); -$VERSION = '0.4003'; +$VERSION = '0.4205'; $VERSION = eval $VERSION; use vars qw(@ISA); @@ -16,7 +16,7 @@ sub new { unless ($self->{fh}) { die "No 'file' or 'fh' parameter given" unless $self->{file}; - $self->{fh} = IO::File->new($self->{file}) or die "Couldn't open $self->{file}: $!"; + open($self->{fh}, '<', $self->{file}) or die "Couldn't open $self->{file}: $!"; } return $self; @@ -29,7 +29,7 @@ sub parse_from_filehandle { while (<$fh>) { next unless /^=(?!cut)/ .. /^=cut/; # in POD # Accept Name - abstract or C<Name> - abstract - last if ($self->{abstract}) = /^ (?: [a-z0-9:]+ | [BCIF] < [a-z0-9:]+ > ) \s+ - \s+ (.*\S) /ix; + last if ($self->{abstract}) = /^ (?: [a-z_0-9:]+ | [BCIF] < [a-z_0-9:]+ > ) \s+ - \s+ (.*\S) /ix; } my @author; |