File perl-Devel-Autoflush.spec of Package perl-Devel-Autoflush

Overview Repositories Revisions Requests Users Attributes Meta

File perl-Devel-Autoflush.spec of Package perl-Devel-Autoflush (Revision ac676f67d48717d39e26edceeb107ea5)

Currently displaying revision ac676f67d48717d39e26edceeb107ea5 , Show latest

#
# spec file for package perl-Devel-Autoflush
#
# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.

# Please submit bugfixes or comments via http://bugs.opensuse.org/
#

Name:           perl-Devel-Autoflush
Version:        0.05
Release:        1
License:        Apache Software License
%define cpan_name Devel-Autoflush
Summary:        Set autoflush from the command line
Url:            http://search.cpan.org/dist/Devel-Autoflush/
Group:          Development/Libraries/Perl
Source:         http://www.cpan.org/authors/id/D/DA/DAGOLDEN/Devel-Autoflush-%{version}.tar.gz
# Source:         Devel::Autoflush
BuildArch:      noarch
BuildRoot:      %{_tmppath}/%{name}-%{version}-build
# BuildRequires: perl(Test::Pod) perl(Test::Pod::Coverage)
BuildRequires:  perl
BuildRequires:  perl(Module::Build)
BuildRequires:  perl-macros
BuildRequires:  perl(IO::CaptureOutput) >= 1.08
BuildRequires:  perl(Module::Build)
BuildRequires:  perl(Test::More) >= 0.62
%{perl_requires}

%description
This module is a hack to set autoflush for STDOUT and STDERR from the
command line or from 'PERL5OPT' for code that needs it but doesn't have it.

This often happens when prompting:

# guess.pl
   print "Guess a number: ";
   my $n = <STDIN>;

As long as the output is going to a terminal, the prompt is flushed when
STDIN is read. However, if the output is being piped, the print statement
will not automatically be flushed, no prompt will be seen and the program
will silently appear to hang while waiting for input. This might happen
with 'tee':

$ perl guess.pl | tee capture.out

Use Devel::Autoflush to work around this:

$ perl -MDevel::Autoflush guess.pl | tee capture.out

Or set it in 'PERL5OPT':

$ export PERL5OPT=-MDevel::Autoflush
   $ perl guess.pl | tee capture.out

%prep
%setup -q -n %{cpan_name}-%{version}

%build
export AUTOMATED_TESTING=1
%{__perl} Build.PL installdirs=vendor
./Build build flags=%{?_smp_mflags}

%check
export AUTOMATED_TESTING=1
./Build test

%install
./Build install destdir=%{buildroot} create_packlist=0
%perl_gen_filelist

%clean
%{__rm} -rf %{buildroot}

%files -f %{name}.files
%defattr(-,root,root,755)
%doc Changes LICENSE README Todo

%changelog

Places

File perl-Devel-Autoflush.spec of Package perl-Devel-Autoflush (Revision ac676f67d48717d39e26edceeb107ea5)

Places