From ed006a8eb44831189e152826c692330d0a0cfe3b Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Mon, 18 Jul 2011 14:00:12 +0200
Subject: delete beagle-dir

Signed-off-by: Manuel Traut <manut@mecka.net>
---
 .../debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm  | 36 ----------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm

(limited to 'beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm')

diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm
deleted file mode 100644
index 025b89f..0000000
--- a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-#
-
-package IO::Seekable;
-
-use 5.006_001;
-use Carp;
-use strict;
-our($VERSION, @EXPORT, @ISA);
-use IO::Handle ();
-# XXX we can't get these from IO::Handle or we'll get prototype
-# mismatch warnings on C<use POSIX; use IO::File;> :-(
-use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
-require Exporter;
-
-@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
-@ISA = qw(Exporter);
-
-$VERSION = "1.10";
-$VERSION = eval $VERSION;
-
-sub seek {
-    @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
-    seek($_[0], $_[1], $_[2]);
-}
-
-sub sysseek {
-    @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
-    sysseek($_[0], $_[1], $_[2]);
-}
-
-sub tell {
-    @_ == 1 or croak 'usage: $io->tell()';
-    tell($_[0]);
-}
-
-1;
-- 
cgit v1.2.3