Skip to content

Commit

Permalink
update fatlib
Browse files Browse the repository at this point in the history
  • Loading branch information
@miyagawa
miyagawa committed Apr 25, 2018
1 parent 65352b2 commit 58cf45c
Show file tree
Hide file tree
Showing 52 changed files with 160 additions and 203 deletions.
104 changes: 52 additions & 52 deletions App-cpanminus/cpanm
View file

Large diffs are not rendered by default.

11 changes: 7 additions & 4 deletions App-cpanminus/fatlib/Tie/Handle/Offset.pm
View file
Expand Up @@ -3,7 +3,8 @@ BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }

package Tie::Handle::Offset;
# ABSTRACT: Tied handle that hides the beginning of a file
our $VERSION = '0.003'; # VERSION

our $VERSION = '0.004';

use Tie::Handle;
our @ISA = qw/Tie::Handle/;
Expand Down Expand Up @@ -103,15 +104,18 @@ sub WRITE
# vim: ts=2 sts=2 sw=2 et:

__END__
=pod
=encoding UTF-8
=head1 NAME
Tie::Handle::Offset - Tied handle that hides the beginning of a file
=head1 VERSION
version 0.003
version 0.004
=head1 SYNOPSIS
Expand All @@ -138,7 +142,7 @@ the offset instead of 80 bytes from the actual start of the file.
=head2 Bugs / Feature Requests
Please report any bugs or feature requests through the issue tracker
at L<http://rt.cpan.org/Public/Dist/Display.html?Name=Tie-Handle-Offset>.
at L<https://github.com/dagolden/tie-handle-offset/issues>.
You will be notified automatically of any progress on your issue.
=head2 Source Code
Expand All @@ -163,4 +167,3 @@ This is free software, licensed under:
The Apache License, Version 2.0, January 2004
=cut
9 changes: 6 additions & 3 deletions App-cpanminus/fatlib/Tie/Handle/SkipHeader.pm
View file
Expand Up @@ -3,7 +3,8 @@ BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }

package Tie::Handle::SkipHeader;
# ABSTRACT: Tied handle that hides an RFC822-style header
our $VERSION = '0.003'; # VERSION

our $VERSION = '0.004';

use Tie::Handle::Offset;
our @ISA = qw/Tie::Handle::Offset/;
Expand Down Expand Up @@ -33,15 +34,18 @@ sub OPEN
# vim: ts=2 sts=2 sw=2 et:

__END__
=pod
=encoding UTF-8
=head1 NAME
Tie::Handle::SkipHeader - Tied handle that hides an RFC822-style header
=head1 VERSION
version 0.003
version 0.004
=head1 SYNOPSIS
Expand Down Expand Up @@ -70,4 +74,3 @@ This is free software, licensed under:
The Apache License, Version 2.0, January 2004
=cut
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

our ($ABS_REMOTE_LEADING_DOTS, $ABS_ALLOW_RELATIVE_SCHEME, $DEFAULT_QUERY_FORM_DELIMITER);

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/IRI.pm
View file
Expand Up @@ -8,8 +8,7 @@ use URI ();

use overload '""' => sub { shift->as_string };

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub new {
my($class, $uri, $scheme) = @_;
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/QueryParam.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::QueryParam;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub URI::_query::query_param {
my $self = shift;
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/Split.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::Split;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use Exporter 5.57 'import';
our @EXPORT_OK = qw(uri_split uri_join);
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_foreign.pm
View file
Expand Up @@ -5,7 +5,6 @@ use warnings;

use parent 'URI::_generic';

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

1;
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_generic.pm
View file
Expand Up @@ -8,8 +8,7 @@ use parent qw(URI URI::_query);
use URI::Escape qw(uri_unescape);
use Carp ();

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

my $ACHAR = $URI::uric; $ACHAR =~ s,\\[/?],,g;
my $PCHAR = $URI::uric; $PCHAR =~ s,\\[?],,g;
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_idna.pm
View file
Expand Up @@ -9,8 +9,7 @@ use warnings;
use URI::_punycode qw(encode_punycode decode_punycode);
use Carp qw(croak);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

BEGIN {
*URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = "$]" < 5.008_003
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_ldap.pm
View file
Expand Up @@ -7,8 +7,7 @@ package URI::_ldap;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use URI::Escape qw(uri_unescape);

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_login.pm
View file
Expand Up @@ -5,8 +5,7 @@ use warnings;

use parent qw(URI::_server URI::_userpass);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

# Generic terminal logins. This is used as a base class for 'telnet',
# 'tn3270', and 'rlogin' URL schemes.
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_punycode.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::_punycode;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use Exporter 'import';
our @EXPORT = qw(encode_punycode decode_punycode);
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_query.pm
View file
Expand Up @@ -6,8 +6,7 @@ use warnings;
use URI ();
use URI::Escape qw(uri_unescape);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub query
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_segment.pm
View file
Expand Up @@ -11,8 +11,7 @@ use URI::Escape qw(uri_unescape);
use overload '""' => sub { $_[0]->[0] },
fallback => 1;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub new
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_server.pm
View file
Expand Up @@ -7,8 +7,7 @@ use parent 'URI::_generic';

use URI::Escape qw(uri_unescape);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub _uric_escape {
my($class, $str) = @_;
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/_userpass.pm
View file
Expand Up @@ -5,8 +5,7 @@ use warnings;

use URI::Escape qw(uri_unescape);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub user
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/data.pm
View file
Expand Up @@ -5,8 +5,7 @@ use warnings;

use parent 'URI';

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use MIME::Base64 qw(encode_base64 decode_base64);
use URI::Escape qw(uri_unescape);
Expand Down
7 changes: 3 additions & 4 deletions App-cpanminus/fatlib/URI/file/Base.pm
View file
Expand Up @@ -5,8 +5,7 @@ use warnings;

use URI::Escape qw();

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub new
{
Expand Down Expand Up @@ -66,8 +65,8 @@ sub _file_is_localhost
return 1 if $host eq "localhost";
eval {
require Net::Domain;
lc(Net::Domain::hostfqdn()) eq $host ||
lc(Net::Domain::hostname()) eq $host;
lc(Net::Domain::hostfqdn() || '') eq $host ||
lc(Net::Domain::hostname() || '') eq $host;
};
}

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/file/FAT.pm
View file
Expand Up @@ -5,8 +5,7 @@ use warnings;

use parent 'URI::file::Win32';

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub fix_path
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/file/Mac.pm
View file
Expand Up @@ -7,8 +7,7 @@ use parent 'URI::file::Base';

use URI::Escape qw(uri_unescape);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub _file_extract_path
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/file/OS2.pm
View file
Expand Up @@ -5,8 +5,7 @@ use warnings;

use parent 'URI::file::Win32';

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

# The Win32 version translates k:/foo to file://k:/foo (?!)
# We add an empty host
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/file/QNX.pm
View file
Expand Up @@ -5,8 +5,7 @@ use warnings;

use parent 'URI::file::Unix';

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub _file_extract_path
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/file/Unix.pm
View file
Expand Up @@ -7,8 +7,7 @@ use parent 'URI::file::Base';

use URI::Escape qw(uri_unescape);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub _file_extract_path
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/file/Win32.pm
View file
Expand Up @@ -7,8 +7,7 @@ use parent 'URI::file::Base';

use URI::Escape qw(uri_unescape);

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

sub _file_extract_authority
{
Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/ftp.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::ftp;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent qw(URI::_server URI::_userpass);

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/gopher.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::gopher; # <draft-murali-url-gopher>, Dec 4, 1996
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent 'URI::_server';

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/http.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::http;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent 'URI::_server';

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/https.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::https;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent 'URI::http';

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/ldap.pm
View file
Expand Up @@ -7,8 +7,7 @@ package URI::ldap;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent qw(URI::_ldap URI::_server);

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/ldapi.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::ldapi;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent qw(URI::_ldap URI::_generic);

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/ldaps.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::ldaps;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent 'URI::ldap';

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/mailto.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::mailto; # RFC 2368
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent qw(URI URI::_query);

Expand Down
3 changes: 1 addition & 2 deletions App-cpanminus/fatlib/URI/mms.pm
View file
Expand Up @@ -3,8 +3,7 @@ package URI::mms;
use strict;
use warnings;

our $VERSION = '1.73';
$VERSION = eval $VERSION;
our $VERSION = '1.74';

use parent 'URI::http';

Expand Down

0 comments on commit 58cf45c

Please sign in to comment.