fix INC
This commit is contained in:
parent
6d9b3935ae
commit
3ce81e561b
@ -6,6 +6,12 @@ use URI::Escape;
|
||||
use File::Basename;
|
||||
use File::Temp qw/tempdir/;
|
||||
|
||||
BEGIN {
|
||||
my ($wd) = $0 =~ m-(.*)/- ;
|
||||
$wd ||= '.';
|
||||
unshift @INC, $wd;
|
||||
}
|
||||
|
||||
require CreatePackageDescr;
|
||||
|
||||
my $repodir;
|
||||
|
@ -9,6 +9,12 @@ use Cwd;
|
||||
|
||||
use strict;
|
||||
|
||||
BEGIN {
|
||||
my ($wd) = $0 =~ m-(.*)/- ;
|
||||
$wd ||= '.';
|
||||
unshift @INC, $wd;
|
||||
}
|
||||
|
||||
require CreatePackageDescr;
|
||||
|
||||
my $ret = 0;
|
||||
|
Loading…
x
Reference in New Issue
Block a user