1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Description: adjust path in test if we run under autopkgtest
Origin: vendor
Forwarded: not-needed
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2015-05-21
--- a/t/80_diag.t
+++ b/t/80_diag.t
@@ -14,7 +14,8 @@
plan skip_all => "Cannot load Text::CSV" if $@;
require "t/util.pl";
- open PP, "< lib/Text/CSV_PP.pm" or die "Cannot read error messages from PP\n";
+ my $dir = $ENV{ADTTMP} ? '/usr/share/perl5' : 'lib';
+ open PP, "< $dir/Text/CSV_PP.pm" or die "Cannot read error messages from PP\n";
while (<PP>) {
m/^ ([0-9]{4}) => "([^"]+)"/ and $err{$1} = $2;
}
|
