diff --git a/Changes b/Changes index 7f7e22f..5e9c668 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,8 @@ Changes file for {{$dist->name}} {{$NEXT}} + * removed use of File::HomeDir::Tiny, to allow installations on perl + 5.41.3+. (#78, Ether) 1.339 2020-10-29 20:36:17-07:00 America/Los_Angeles diff --git a/Makefile.PL b/Makefile.PL index 1897edf..d09dcd4 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -29,7 +29,6 @@ my %WriteMakefileArgs = ( "Cwd" => 0, "Data::Dumper" => 0, "File::Copy::Recursive" => 0, - "File::HomeDir::Tiny" => 0, "File::chdir" => 0, "Git::Wrapper" => "0.042", "IO::Prompt::Simple" => 0, @@ -83,7 +82,6 @@ my %FallbackPrereqs = ( "Cwd" => 0, "Data::Dumper" => 0, "File::Copy::Recursive" => 0, - "File::HomeDir::Tiny" => 0, "File::Spec" => 0, "File::Temp" => 0, "File::chdir" => 0, diff --git a/bin/got-complete b/bin/got-complete index 5743ce8..39b99c2 100755 --- a/bin/got-complete +++ b/bin/got-complete @@ -5,7 +5,6 @@ use 5.014; ## strict, unicode_strings use warnings; -use File::HomeDir::Tiny (); use Path::Tiny; use YAML qw/ LoadFile /; @@ -17,7 +16,7 @@ sub get_command_line { sub get_project_suggestion { my $word = shift; - my $configfile = path( File::HomeDir::Tiny::home() , '.gitgot' ); + my $configfile = path( '~/.gitgot' ); my $config = LoadFile( $configfile ) or die "$configfile not found\n"; diff --git a/lib/App/GitGot/Command.pm b/lib/App/GitGot/Command.pm index 7d10633..8f58239 100644 --- a/lib/App/GitGot/Command.pm +++ b/lib/App/GitGot/Command.pm @@ -5,7 +5,6 @@ use 5.014; use App::Cmd::Setup -command; use Cwd; -use File::HomeDir::Tiny (); use List::Util qw/ max first /; use Path::Tiny; use Try::Tiny; @@ -27,7 +26,7 @@ sub opt_spec { [ 'all|a' => 'use all available repositories' ] , [ 'by_path|p' => 'if set, output will be sorted by repo path (default: sort by repo name)' ] , [ 'color_scheme|c=s' => 'name of color scheme to use' => { default => 'dark' } ] , - [ 'configfile|f=s' => 'path to config file' => { default => path( File::HomeDir::Tiny::home() , '.gitgot') , required => 1 } ] , + [ 'configfile|f=s' => 'path to config file' => { default => path( '~/.gitgot') , required => 1 } ] , [ 'no_color|C' => 'do not use colored output' => { default => 0 } ] , [ 'quiet|q' => 'keep it down' ] , [ 'skip_tags|T=s@' => 'select repositories not tagged with these words' ] , diff --git a/lib/App/GitGot/Command/fork.pm b/lib/App/GitGot/Command/fork.pm index 6315c27..d868707 100644 --- a/lib/App/GitGot/Command/fork.pm +++ b/lib/App/GitGot/Command/fork.pm @@ -6,7 +6,6 @@ use 5.014; use autodie; use Class::Load 'try_load_class'; use Cwd; -use File::HomeDir::Tiny (); use Path::Tiny; use Types::Standard -types; @@ -68,7 +67,7 @@ sub _execute { } sub _parse_github_identity { - my $file = path( File::HomeDir::Tiny::home() , '.github-identity' ); + my $file = path( '~/.github-identity' ); $file->exists or say STDERR "ERROR: Can't find $file" and exit(1);