diff options
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, 28 insertions, 0 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 new file mode 100644 index 0000000..f28a812 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm @@ -0,0 +1,28 @@ +# + +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__ + |