Set Perl search path more idiomatically
Back in commits1df92eeafe
,f884a96819
, and592123efbb
I used some hackish code to set the script search path, unaware despite decades of perl that there was a completely standard way to do this. This patch changes those cases to use the standard perl FindBin package.
This commit is contained in:
parent
149f2ae88a
commit
e60c6f6ea1
|
@ -17,9 +17,8 @@ use strict;
|
|||
use warnings;
|
||||
use Getopt::Long;
|
||||
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
use FindBin;
|
||||
use lib $FindBin::RealBin;
|
||||
|
||||
use Catalog;
|
||||
|
||||
|
|
|
@ -5,9 +5,8 @@
|
|||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
use FindBin;
|
||||
use lib $FindBin::RealBin;
|
||||
|
||||
use Cwd;
|
||||
|
||||
|
|
|
@ -6,9 +6,8 @@
|
|||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
use FindBin;
|
||||
use lib $FindBin::RealBin;
|
||||
|
||||
use Install qw(Install);
|
||||
|
||||
|
|
|
@ -7,9 +7,8 @@
|
|||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
use FindBin;
|
||||
use lib $FindBin::RealBin;
|
||||
|
||||
use Mkvcbuild;
|
||||
|
||||
|
|
|
@ -12,8 +12,9 @@ use File::Basename;
|
|||
use File::Copy;
|
||||
use File::Find ();
|
||||
use File::Path qw(rmtree);
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
|
||||
use FindBin;
|
||||
use lib $FindBin::RealBin;
|
||||
|
||||
use Install qw(Install);
|
||||
|
||||
|
|
Loading…
Reference in New Issue