Skip to content

Commit 68c5ae1

Browse files
Mike Fultonkhwilliamson
Mike Fulton
authored andcommitted
Need to remove ASCII tags on copied compiled executables for z/OS ASCII
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.
1 parent 9075490 commit 68c5ae1

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

installperl

+4
Original file line numberDiff line numberDiff line change
@@ -284,6 +284,7 @@ else {
284284
strip("$installbin/$perl_verbase$ver$exe_ext");
285285
fix_dep_names("$installbin/$perl_verbase$ver$exe_ext");
286286
chmod(0755, "$installbin/$perl_verbase$ver$exe_ext");
287+
`chtag -r "$installbin/$perl_verbase$ver$exe_ext"` if ($^O eq 'os390');
287288
}
288289

289290
# Install library files.
@@ -354,6 +355,7 @@ foreach my $file (@corefiles) {
354355
} else {
355356
chmod($NON_SO_MODE, "$installarchlib/CORE/$file");
356357
}
358+
`chtag -r "$installarchlib/CORE/$file"` if ($^O eq 'os390');
357359
}
358360
}
359361

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

426429
$mainperl_is_instperl = 1;
427430
}
@@ -716,6 +719,7 @@ sub copy_if_diff {
716719
my ($atime, $mtime) = (stat $from)[8,9];
717720
utime $atime, $mtime, $to;
718721
}
722+
`chtag -r "$to"` if ($^O eq "os390");
719723
1;
720724
}
721725
}

0 commit comments

Comments
 (0)