9 lines
158 B
Perl
9 lines
158 B
Perl
package CPANPLUS::Internals::Utils::Autoflush;
|
|
|
|
use vars qw[$VERSION];
|
|
$VERSION = "0.9910";
|
|
|
|
BEGIN { my $old = select STDERR; $|++; select $old; $|++; };
|
|
|
|
1;
|