mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

File/Copy.pm: Copy file tags on z/OS

Browse Source
This commit is contained in:
Igor Todorovski 2025-05-14 17:15:35 -06:00 committed by Karl Williamson
parent 45a5ce385b
commit accbfd5a97
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/File/Copy.pm
View File

@ -5,7 +5,7 @@
# Additions copyright 1996 by Charles Bailey. Permission is granted
# to distribute the revised code under the same terms as Perl itself.
package File::Copy 2.42;
package File::Copy 2.43;
use v5.40;
no warnings 'newline';
@ -165,6 +165,11 @@ sub copy {
$closeto = 1;
}
# Copy file tags on os390
if ($^O eq 'os390') {
ZOS::Filespec::copytags_fd(fileno($from_h), fileno($to_h));
}
$! = 0;
for (;;) {
my ($r, $w, $t);