diff options
| -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: |