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

Author: IgorTodorovskiIBM

lib/File/Copy.pm

@@ -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);