Skip to content

remove use of File::HomeDir::Tiny #78

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

remove use of File::HomeDir::Tiny #78

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions Changes
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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

Expand Down
2 changes: 0 additions & 2 deletions Makefile.PL
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down Expand Up @@ -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,
Expand Down
3 changes: 1 addition & 2 deletions bin/got-complete
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,6 @@
use 5.014; ## strict, unicode_strings
use warnings;

use File::HomeDir::Tiny ();
use Path::Tiny;
use YAML qw/ LoadFile /;

Expand All @@ -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";
Expand Down
3 changes: 1 addition & 2 deletions lib/App/GitGot/Command.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand All @@ -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' ] ,
Expand Down
3 changes: 1 addition & 2 deletions lib/App/GitGot/Command/fork.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;

Expand Down Expand Up @@ -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);
Expand Down