diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
commit | 316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch) | |
tree | cb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/DirHandle.pm | |
parent | cd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff) |
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/DirHandle.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/DirHandle.pm | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/Master/tlpkg/tlperl/lib/DirHandle.pm b/Master/tlpkg/tlperl/lib/DirHandle.pm deleted file mode 100755 index fc27dfb1e63..00000000000 --- a/Master/tlpkg/tlperl/lib/DirHandle.pm +++ /dev/null @@ -1,92 +0,0 @@ -package DirHandle; - -our $VERSION = '1.03'; - -=head1 NAME - -DirHandle - supply object methods for directory handles - -=head1 SYNOPSIS - - use DirHandle; - $d = DirHandle->new("."); - if (defined $d) { - while (defined($_ = $d->read)) { something($_); } - $d->rewind; - while (defined($_ = $d->read)) { something_else($_); } - undef $d; - } - -=head1 DESCRIPTION - -The C<DirHandle> method provide an alternative interface to the -opendir(), closedir(), readdir(), and rewinddir() functions. - -The only objective benefit to using C<DirHandle> is that it avoids -namespace pollution by creating globs to hold directory handles. - -=head1 NOTES - -=over 4 - -=item * - -On Mac OS (Classic), the path separator is ':', not '/', and the -current directory is denoted as ':', not '.'. You should be careful -about specifying relative pathnames. While a full path always begins -with a volume name, a relative pathname should always begin with a -':'. If specifying a volume name only, a trailing ':' is required. - -=back - -=cut - -require 5.000; -use Carp; -use Symbol; - -sub new { - @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )'; - my $class = shift; - my $dh = gensym; - if (@_) { - DirHandle::open($dh, $_[0]) - or return undef; - } - bless $dh, $class; -} - -sub DESTROY { - my ($dh) = @_; - # Don't warn about already being closed as it may have been closed - # correctly, or maybe never opened at all. - local($., $@, $!, $^E, $?); - no warnings 'io'; - closedir($dh); -} - -sub open { - @_ == 2 or croak 'usage: $dh->open(DIRNAME)'; - my ($dh, $dirname) = @_; - opendir($dh, $dirname); -} - -sub close { - @_ == 1 or croak 'usage: $dh->close()'; - my ($dh) = @_; - closedir($dh); -} - -sub read { - @_ == 1 or croak 'usage: $dh->read()'; - my ($dh) = @_; - readdir($dh); -} - -sub rewind { - @_ == 1 or croak 'usage: $dh->rewind()'; - my ($dh) = @_; - rewinddir($dh); -} - -1; |