From 62e3c9efec22cf286ef647bfa7a8549b22ccfdb0 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 3 Feb 2016 23:03:28 +0000 Subject: ctanify (2feb16) git-svn-id: svn://tug.org/texlive/trunk@39569 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/ctanify/ctanify | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Master/texmf-dist/scripts/ctanify') diff --git a/Master/texmf-dist/scripts/ctanify/ctanify b/Master/texmf-dist/scripts/ctanify/ctanify index e9dd80fe857..1214aa11763 100755 --- a/Master/texmf-dist/scripts/ctanify/ctanify +++ b/Master/texmf-dist/scripts/ctanify/ctanify @@ -7,7 +7,7 @@ use Cwd; use File::Basename; -use File::Copy qw(cp); +use File::Copy::Recursive qw(fcopy); use File::Find; use File::Path; use File::Spec; @@ -19,7 +19,7 @@ use warnings; use strict; # Define some global variables. -our $VERSION = "1.8.1"; # ctanify version number +our $VERSION = "1.8.2"; # ctanify version number my $progname = basename $0; # Name of this program my $pkgname; # Base name of the package to create my $miscify = 0; # 1=replace singletons with misc; 0=don't @@ -85,7 +85,7 @@ my %text_ext = # aborting on error. sub filesize ($) { - my $finfo = stat($_[0]) || die "${progname}: Failed to stat $_ ($!)\n"; + my $finfo = lstat($_[0]) || die "${progname}: Failed to stat $_ ($!)\n"; return $finfo->size; } @@ -281,7 +281,7 @@ foreach my $fname (@manifest) { mkpath "$tdsdir/$subdir"; # Copy the specified file into the subdirectory. - cp($fname, "$tdsdir/$subdir/" . basename $fname) || die "${progname}: Failed to copy $fname ($!)\n"; + fcopy($fname, "$tdsdir/$subdir/" . basename $fname) || die "${progname}: Failed to copy $fname ($!)\n"; } if ($miscify) { # Replace package directories containing a single file with "misc". @@ -351,7 +351,7 @@ foreach my $fname (@manifest) { my ($namepart, $pathpart, $suffixpart) = fileparse($relname); mkpath "$pkgdir/$pathpart"; my $targetfile = "$pkgdir/$pathpart/$namepart$suffixpart"; - cp($fname, $targetfile) || die "${progname}: Failed to copy $fname ($!)\n"; + fcopy($fname, $targetfile) || die "${progname}: Failed to copy $fname ($!)\n"; } if ($unixify) { # Make all text files use Unix line endings. -- cgit v1.2.3