summaryrefslogtreecommitdiff
path: root/Build/source/texk/tex4htk/htperl.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-05-10 00:31:48 +0000
committerKarl Berry <karl@freefriends.org>2008-05-10 00:31:48 +0000
commit3affd633834494c279f96078e95831935ea51ca7 (patch)
treed18cbef6ade390df34099bff78c593f00e9d7971 /Build/source/texk/tex4htk/htperl.pl
parent78d169458ffb8d121d56a1345471b5dbe3f17a2a (diff)
tex4ht-1.0.2008_05_07_2048
git-svn-id: svn://tug.org/texlive/trunk@8000 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/tex4htk/htperl.pl')
-rw-r--r--Build/source/texk/tex4htk/htperl.pl45
1 files changed, 0 insertions, 45 deletions
diff --git a/Build/source/texk/tex4htk/htperl.pl b/Build/source/texk/tex4htk/htperl.pl
deleted file mode 100644
index 347663e0bb6..00000000000
--- a/Build/source/texk/tex4htk/htperl.pl
+++ /dev/null
@@ -1,45 +0,0 @@
-use File::Copy;
-use File::Path;
-use File::Basename;
-
-&main ;
-
-0;
-
-sub is_absolute {
- my ($f) = @_;
- return $f =~ m@^([a-zA-Z]:)?[\\/]@ ;
-}
-
-sub canonicalize {
- my ($f) = @_;
- $f =~ s@/@\\@g;
- return $f;
-}
-
-sub main {
- my $src = &canonicalize($ARGV[1]);
- my $dst = &canonicalize($ARGV[2]);
-
- if (&is_absolute($src)) {
- if (-d $dst) {
- $dst = $dst . "\\" . &basename($src);
- }
- }
- else {
- if (-d $dst) {
- $dst = "$dst\\$src";
- &mkpath(&dirname($dst));
- }
- }
-
- if ($ARGV[0] eq 'move') {
- &move($src, $dst);
- }
- elsif ($ARGV[0] eq 'copy') {
- &copy($src, $dst);
- }
- else {
- print STDERR "$0: bad verb $ARGV[0]\n";
- }
-}