change how File::ShareDir is loaded

G4Vi · G4Vi · commit 7a82ac5f71fc · 2024-04-24T23:26:19.000-04:00
diff --git a/lib/Perl/Dist/APPerl.pm b/lib/Perl/Dist/APPerl.pm
@@ -41,7 +41,7 @@ use constant {
         defined($thispath) or die(__FILE__.'issues?');
         my $sharedir = dirname($thispath)."/../../../share";
         if (! -d $sharedir) {
-            require 'File::ShareDir';
+            eval "use File::ShareDir; 1" or die "Failed to load File::ShareDir";
             $sharedir = File::ShareDir::dist_dir('Perl-Dist-APPerl');
         }
         $sharedir = abs_path($sharedir) // die "Failed to load sharedir";

Original file line number	Diff line number	Diff line change
`@@ -41,7 +41,7 @@ use constant {`
`41`	`41`	`defined($thispath) or die(__FILE__.'issues?');`
`42`	`42`	`my $sharedir = dirname($thispath)."/../../../share";`
`43`	`43`	`if (! -d $sharedir) {`
`44`		`- require 'File::ShareDir';`
	`44`	`+ eval "use File::ShareDir; 1" or die "Failed to load File::ShareDir";`
`45`	`45`	`$sharedir = File::ShareDir::dist_dir('Perl-Dist-APPerl');`
`46`	`46`	`}`
`47`	`47`	`$sharedir = abs_path($sharedir) // die "Failed to load sharedir";`