Skip to content

Commit

Permalink
Need to remove ASCII tags on copied compiled executables for z/OS ASCII
Browse files Browse the repository at this point in the history
 Untag compiled executables (perl and the .so files) after they are
 copied with File::copy because File::copy is marking them as CCSID 819
 (ASCII). The longer term fix for this could be to provide a syscopy on
 z/OS which would perform a _cp_ which on z/OS copies the tag
 information as part of the copy.
  • Loading branch information
Mike Fulton authored and khwilliamson committed Jan 2, 2022
1 parent 9075490 commit 68c5ae1
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions installperl
Expand Up @@ -284,6 +284,7 @@ else {
strip("$installbin/$perl_verbase$ver$exe_ext");
fix_dep_names("$installbin/$perl_verbase$ver$exe_ext");
chmod(0755, "$installbin/$perl_verbase$ver$exe_ext");
`chtag -r "$installbin/$perl_verbase$ver$exe_ext"` if ($^O eq 'os390');
}

# Install library files.
Expand Down Expand Up @@ -354,6 +355,7 @@ foreach my $file (@corefiles) {
} else {
chmod($NON_SO_MODE, "$installarchlib/CORE/$file");
}
`chtag -r "$installarchlib/CORE/$file"` if ($^O eq 'os390');
}
}

Expand Down Expand Up @@ -422,6 +424,7 @@ if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' &&
eval { CORE::link $instperl, $usrbinperl } ) ||
eval { symlink $expinstperl, $usrbinperl } ||
copy($instperl, $usrbinperl);
`chtag -r "$usrbinperl"` if ($^O eq 'os390');

$mainperl_is_instperl = 1;
}
Expand Down Expand Up @@ -716,6 +719,7 @@ sub copy_if_diff {
my ($atime, $mtime) = (stat $from)[8,9];
utime $atime, $mtime, $to;
}
`chtag -r "$to"` if ($^O eq "os390");
1;
}
}
Expand Down

0 comments on commit 68c5ae1

Please sign in to comment.