From f56e05005c751822074f0a22aa9a98d2eb189924 Mon Sep 17 00:00:00 2001
From: markm <markm@FreeBSD.org>
Date: Thu, 16 May 2002 10:09:28 +0000
Subject: Perl is no longer in base. Long live the port!

---
 contrib/perl5/lib/DirHandle.pm | 72 ------------------------------------------
 1 file changed, 72 deletions(-)
 delete mode 100644 contrib/perl5/lib/DirHandle.pm

(limited to 'contrib/perl5/lib/DirHandle.pm')

diff --git a/contrib/perl5/lib/DirHandle.pm b/contrib/perl5/lib/DirHandle.pm
deleted file mode 100644
index 047755d..0000000
--- a/contrib/perl5/lib/DirHandle.pm
+++ /dev/null
@@ -1,72 +0,0 @@
-package DirHandle;
-
-=head1 NAME 
-
-DirHandle - supply object methods for directory handles
-
-=head1 SYNOPSIS
-
-    use DirHandle;
-    $d = new DirHandle ".";
-    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.
-
-=cut
-
-require 5.000;
-use Carp;
-use Symbol;
-
-sub new {
-    @_ >= 1 && @_ <= 2 or croak 'usage: new DirHandle [DIRNAME]';
-    my $class = shift;
-    my $dh = gensym;
-    if (@_) {
-	DirHandle::open($dh, $_[0])
-	    or return undef;
-    }
-    bless $dh, $class;
-}
-
-sub DESTROY {
-    my ($dh) = @_;
-    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;
-- 
cgit v1.1