|
@@ -13,14 +13,16 @@
|
|
# You should have received a copy of the GNU General Public License
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
# along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
|
|
-use Dpkg::IPC;
|
|
|
|
-use Dpkg::Path qw(find_command);
|
|
|
|
-use File::Spec;
|
|
|
|
-use Test::More;
|
|
|
|
-
|
|
|
|
use strict;
|
|
use strict;
|
|
use warnings;
|
|
use warnings;
|
|
|
|
|
|
|
|
+use Test::More;
|
|
|
|
+
|
|
|
|
+use File::Spec;
|
|
|
|
+
|
|
|
|
+use Dpkg::IPC;
|
|
|
|
+use Dpkg::Path qw(find_command);
|
|
|
|
+
|
|
my $srcdir = $ENV{srcdir} || '.';
|
|
my $srcdir = $ENV{srcdir} || '.';
|
|
my $tmpdir = 't.tmp/update_alternatives';
|
|
my $tmpdir = 't.tmp/update_alternatives';
|
|
my $admindir = File::Spec->rel2abs("$tmpdir/admindir"),
|
|
my $admindir = File::Spec->rel2abs("$tmpdir/admindir"),
|