github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-02-21 06:15:04 +00:00
Code Releases Activity

t/hook-apt.t: Special case for Perl 5.10

Browse Source 
File::Copy in Perl 5.10 does not copy permissions, so let's fix it
there and check for it elsewhere.

This reverts the two commits 06b3faa1bf
and 68c20b4e4e which did not help to fix
this issue as the initially suspected noexec mount wasn't really
there. Hopefully this finally resolves the test failures with Perl
5.10 in the new t/hook-apt.t.
This commit is contained in:
Axel Beckert
2020-12-20 22:40:57 +01:00
parent 68c20b4e4e
commit ea95b1ef03
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
t/hook-apt.t
View File

@@ -55,7 +55,13 @@ sub testHook
File::Copy::cp( $hook, $tmphook );
ok( -e "$tmphook", "hook exists in temporary directory [$dist]" );
ok( -x "$tmphook", "hook is executable in temporary directory [$dist]" );
# File::Copy in Perl 5.10 does not copy permissions, so let's fix
# it there and check for it elsewhere.
if ($] < 5.011) {
chmod(0755, $tmphook);
} else {
ok( -x "$tmphook", "hook is executable in temporary directory [$dist]" );
}
no warnings qw(qw);
is(system(qw(sed -e s/chroot/#chroot/ -i), $tmphook) >> 8, 0,