summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-02-03 23:03:28 +0000
committerKarl Berry <karl@freefriends.org>2016-02-03 23:03:28 +0000
commit62e3c9efec22cf286ef647bfa7a8549b22ccfdb0 (patch)
tree729cd18ca7ac1e9eecf752fd4068410968fec27c
parent863ce92b4332ab5f92ba66276c388bbb99e59be5 (diff)
ctanify (2feb16)
git-svn-id: svn://tug.org/texlive/trunk@39569 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/ctanify/ctanify10
-rw-r--r--Master/texmf-dist/doc/latex/ctanify/ctanify.pdfbin15929 -> 15927 bytes
-rw-r--r--Master/texmf-dist/doc/man/man1/ctanify.12
-rw-r--r--Master/texmf-dist/doc/man/man1/ctanify.man1.pdfbin41005 -> 40887 bytes
-rwxr-xr-xMaster/texmf-dist/scripts/ctanify/ctanify10
5 files changed, 11 insertions, 11 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/ctanify/ctanify b/Build/source/texk/texlive/linked_scripts/ctanify/ctanify
index e9dd80fe857..1214aa11763 100755
--- a/Build/source/texk/texlive/linked_scripts/ctanify/ctanify
+++ b/Build/source/texk/texlive/linked_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.
diff --git a/Master/texmf-dist/doc/latex/ctanify/ctanify.pdf b/Master/texmf-dist/doc/latex/ctanify/ctanify.pdf
index d85fd684c00..5fd2bc427b7 100644
--- a/Master/texmf-dist/doc/latex/ctanify/ctanify.pdf
+++ b/Master/texmf-dist/doc/latex/ctanify/ctanify.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/man/man1/ctanify.1 b/Master/texmf-dist/doc/man/man1/ctanify.1
index d184de327d8..fd8a73a19f1 100644
--- a/Master/texmf-dist/doc/man/man1/ctanify.1
+++ b/Master/texmf-dist/doc/man/man1/ctanify.1
@@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "CTANIFY 1"
-.TH CTANIFY 1 "2016-01-29" "v1.8.1" ""
+.TH CTANIFY 1 "2016-02-01" "v1.8.2" ""
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
diff --git a/Master/texmf-dist/doc/man/man1/ctanify.man1.pdf b/Master/texmf-dist/doc/man/man1/ctanify.man1.pdf
index cf4386773cc..4cc77584b38 100644
--- a/Master/texmf-dist/doc/man/man1/ctanify.man1.pdf
+++ b/Master/texmf-dist/doc/man/man1/ctanify.man1.pdf
Binary files differ
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.