diff options
author | Karl Berry <karl@freefriends.org> | 2007-07-14 00:42:03 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-07-14 00:42:03 +0000 |
commit | 2313bd00ab9da753daf0438ef410f118831c59f5 (patch) | |
tree | 027f81bad5d0f322b069d2f805919f4a608022d0 /Master/tlpkg/TeXLive/TLPSRC.pm | |
parent | 2b4c681d78064c9f1f9ebcadd934c746347a9109 (diff) |
no, we don't want this kind of remove here.
git-svn-id: svn://tug.org/texlive/trunk@4583 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index c943b02dd88..24456aa7e5c 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -132,19 +132,6 @@ sub from_file } -sub remove -{ - my $self = shift; - my $srcfile = $self->{"_srcfile"}; - die "no _srcfile for tlpsrc object" unless $srcfile; - if (unlink ($srcfile) == 0) { - print "unlink($srcfile) ok.\n"; - } else { - warn "unlink($srcfile) failed: $!"; - } -} - - sub writeout { my $self = shift; @@ -191,7 +178,7 @@ sub writeout } -# the hard work, generate a TLP file +# the hard work, generate the TLPOBJ data. # sub make_tlpobj { @@ -430,7 +417,6 @@ TeXLive::TLPSRC - TeX Live Package Source access module my $tlpsrc = TeXLive::TLPSRC->new( name => "foobar" ); $tlpsrc->from_file("/some/tlpsrc/package.tlpsrc"); $tlpsrc->from_file("package"); - $tlpsrc->remove; $tlpsrc->writeout; $tlpsrc->writeout(\*FILEHANDLE); @@ -671,10 +657,6 @@ sibling of the C<TeXLive> package directory where C<TLPSRC.pm> was found. $tlpsrc->from_file("/path/to/the/tlpsrc/somepkg.tlpsrc"); $tlpsrc->from_file("somepkg"); -=item C<remove> -removes the file for this C<TLPSRC> object from disk. It does not -update any database (or anything else). - =item C<writeout> writes the textual representation of a C<TLPSRC> object to stdout, or the filehandle if given: |