VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-20 16:48:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix to revert File::Copy for compatibility with earlier versions of Perl

Browse Source
This commit is contained in:
Ilia Ross
2025-01-29 21:22:21 +02:00
parent 6e6c9c26c7
commit ba81b22e55
1 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
vendor_perl/File/Copy.pm
View File

@ -7,14 +7,15 @@
package File::Copy;
use 5.035007;
use 5.006;
use strict;
use warnings; no warnings 'newline';
no warnings 'experimental::builtin';
use builtin 'blessed';
use overload;
use File::Spec;
use Config;
# During perl build, we need File::Copy but Scalar::Util might not be built yet
# And then we need these games to avoid loading overload, as that will
# confuse miniperl during the bootstrap of perl.
my $Scalar_Util_loaded = eval q{ require Scalar::Util; require overload; 1 };
# We want HiRes stat and utime if available
BEGIN { eval q{ use Time::HiRes qw( stat utime ) } };
our(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy);
@ -23,7 +24,7 @@ sub syscopy;
sub cp;
sub mv;
$VERSION = '2.41';
$VERSION = '2.34';
require Exporter;
@ISA = qw(Exporter);
@ -45,8 +46,8 @@ sub carp {
sub _catname {
my($from, $to) = @_;
if (not defined &basename) {
require File::Basename;
File::Basename->import( 'basename' );
require File::Basename;
import File::Basename 'basename';
}
return File::Spec->catfile($to, basename($from));
@ -55,7 +56,8 @@ sub _catname {
# _eq($from, $to) tells whether $from and $to are identical
sub _eq {
my ($from, $to) = map {
blessed($_) && overload::Method($_, q{""})
$Scalar_Util_loaded && Scalar::Util::blessed($_)
&& overload::Method($_, q{""})
? "$_"
: $_
} (@_);
@ -98,11 +100,11 @@ sub copy {
}
if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
!($^O eq 'os2')) {
!($^O eq 'MSWin32' || $^O eq 'os2')) {
my @fs = stat($from);
if (@fs) {
my @ts = stat($to);
if (@ts && $fs[0] == $ts[0] && $fs[1] eq $ts[1] && !-p $from) {
if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
carp("'$from' and '$to' are identical (not copied)");
return 0;
}
@ -117,6 +119,7 @@ sub copy {
&& !$to_a_handle
&& !($from_a_handle && $^O eq 'os2' ) # OS/2 cannot handle handles
&& !($from_a_handle && $^O eq 'MSWin32')
&& !($from_a_handle && $^O eq 'NetWare')
)
{
if ($^O eq 'VMS' && -e $from
@ -339,14 +342,14 @@ File::Copy - Copy files or filehandles
use File::Copy;
copy("sourcefile", "destinationfile") or die "Copy failed: $!";
copy("Copy.pm", \*STDOUT);
move("/dev1/sourcefile", "/dev2/destinationfile");
copy("sourcefile","destinationfile") or die "Copy failed: $!";
copy("Copy.pm",\*STDOUT);
move("/dev1/sourcefile","/dev2/destinationfile");
use File::Copy "cp";
my $n = FileHandle->new("/a/file", "r");
cp($n, "x");
$n = FileHandle->new("/a/file","r");
cp($n,"x");
=head1 DESCRIPTION
@ -395,12 +398,9 @@ You may use the syntax C<use File::Copy "cp"> to get at the C<cp>
alias for this function. The syntax is I<exactly> the same. The
behavior is nearly the same as well: as of version 2.15, C<cp> will
preserve the source file's permission bits like the shell utility
C<cp(1)> would do with default options, while C<copy> uses the default
permissions for the target file (which may depend on the process'
C<umask>, file ownership, inherited ACLs, etc.). That is, if the
destination file already exists, C<cp> will leave its permissions
unchanged; otherwise the permissions are taken from the source file
and modified by the C<umask>. If an error occurs in setting
C<cp(1)> would do, while C<copy> uses the default permissions for the
target file (which may depend on the process' C<umask>, file
ownership, inherited ACLs, etc.). If an error occurs in setting
permissions, C<cp> will return 0, regardless of whether the file was
successfully copied.