diff options
| author | Manuel Traut <manut@mecka.net> | 2011-07-18 14:00:12 +0200 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2011-07-18 14:00:12 +0200 |
| commit | ed006a8eb44831189e152826c692330d0a0cfe3b (patch) | |
| tree | 66996c44c68a8787e4a35a85aea683975f307767 /beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm | |
| parent | 4493e8f707e62b9867d9cfd40205115140e7c993 (diff) | |
delete beagle-dir
Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm deleted file mode 100644 index f28a812..0000000 --- a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm +++ /dev/null @@ -1,28 +0,0 @@ -# - -package IO; - -use XSLoader (); -use Carp; -use strict; -use warnings; - -our $VERSION = "1.25"; -XSLoader::load 'IO', $VERSION; - -sub import { - shift; - - warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated}) - if @_ == 0 ; - - my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir); - - eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l) - or croak $@; -} - -1; - -__END__ - |
