diff options
Diffstat (limited to 'img/lib/IM/Stdio.pm')
| -rw-r--r-- | img/lib/IM/Stdio.pm | 37 |
1 files changed, 34 insertions, 3 deletions
diff --git a/img/lib/IM/Stdio.pm b/img/lib/IM/Stdio.pm index c247e6b1..7d4d9808 100644 --- a/img/lib/IM/Stdio.pm +++ b/img/lib/IM/Stdio.pm @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: May 7, 1997 -### Revised: Apr 14, 2000 +### Revised: Dec 7, 2002 ### -my $PM_VERSION = "IM::Stdio.pm version 20000414(IM141)"; +my $PM_VERSION = "IM::Stdio.pm version 20021207(IM142)"; package IM::Stdio; require 5.003; @@ -22,7 +22,7 @@ use vars qw(@ISA @EXPORT $old); # why not my($old)? @ISA = qw(Exporter); @EXPORT = qw(flush); -sub flush (*) { +sub flush(*) { local($old) = select(shift); $| = 1; print ''; @@ -32,6 +32,37 @@ sub flush (*) { 1; +__END__ + +=head1 NAME + +IM::Stdio - stdio handler + +=head1 SYNOPSIS + + use IM::Stdio; + + flush(OUTPUT_HANDLE); + +=head1 DESCRIPTION + +The I<IM::Stdio> module handles stdio. + +This modules is provided by IM (Internet Message). + +=head1 BUGS + +This module is semi-obsolete. This module conflicts with the +I<IM::Util> module. + +=head1 COPYRIGHT + +IM (Internet Message) is copyrighted by IM developing team. +You can redistribute it and/or modify it under the modified BSD +license. See the copyright file for more details. + +=cut + ### Copyright (C) 1997, 1998, 1999 IM developing team ### All rights reserved. ### |