Author: cweyl
Update of /cvs/extras/rpms/perl-Term-Size/F-9
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv16718/F-9
Modified Files:
.cvsignore sources
Added Files:
import.log perl-Term-Size.spec rt38594.perlio.patch
Log Message:
"Initial branch import."
--- NEW FILE import.log ---
perl-Term-Size-0_2-1_fc9:F-9:perl-Term-Size-0.2-1.fc9.src.rpm:1225945837
--- NEW FILE perl-Term-Size.spec ---
Name: perl-Term-Size
Version: 0.2
Release: 1%{?dist}
# see Copyright
License: GPL+ or Artistic
Group: Development/Libraries
Summary: Simple way to get terminal size
Source: http://search.cpan.org/CPAN/authors/id/T/TI/TIMPX/Term-Size-%{version}.tar.gz
Url: http://search.cpan.org/dist/Term-Size
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
# see http://rt.cpan.org/Public/Bug/Display.html?id=38594
Patch0: rt38594.perlio.patch
BuildRequires: perl(ExtUtils::MakeMaker)
%description
*Term::Size* is a Perl module which provides a straightforward way to
retrieve the terminal size.
Both functions take an optional filehandle argument, which defaults to
'*STDIN{IO}'. They both return a list of two values, which are the current
width and height, respectively, of the terminal associated with the
specified filehandle.
'Term::Size::chars' returns the size in units of characters, whereas
'Term::Size::pixels' uses units of pixels.
%prep
%setup -q -n Term-Size-%{version}
%patch0
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
make %{?_smp_mflags}
%install
rm -rf %{buildroot}
make pure_install PERL_INSTALL_ROOT=%{buildroot}
find %{buildroot} -type f -name .packlist -exec rm -f {} ';'
find %{buildroot} -type f -name '*.bs' -a -size 0 -exec rm -f {} ';'
find %{buildroot} -depth -type d -exec rmdir {} 2>/dev/null ';'
%{_fixperms} %{buildroot}/*
%check
# tests will fail under mock (no terminal size to get!) In particular, tests
# 2, 3 and 5 fail regardless of what platform they're being complied for under
# mock.
%{?_with_display_tests: make test }
%clean
rm -rf %{buildroot}
%files
%defattr(-,root,root,-)
%doc Changes README Copyright test.pl
%{perl_vendorarch}/*
%exclude %dir %{perl_vendorarch}/auto
%{_mandir}/man3/*.3*
%changelog
* Mon Sep 29 2008 Chris Weyl <cweyl@xxxxxxxxxxxxxxx> 0.2-1
- initial RPM packaging
- generated with cpan2dist (CPANPLUS::Dist::RPM version 0.0.1)
rt38594.perlio.patch:
--- NEW FILE rt38594.perlio.patch ---
--- Size.xs.old 2008-08-16 10:27:56.000000000 +1000
+++ Size.xs 2008-08-20 11:16:32.000000000 +1000
@@ -17,14 +17,14 @@
PROTOTYPES: ENABLE
void
-chars( f = stdin )
- FILE *f;
+chars( f = PerlIO_stdin() )
+ PerlIO *f;
PREINIT:
struct winsize w;
PPCODE:
- if (ioctl(fileno(f), TIOCGWINSZ, &w) == -1)
+ if (ioctl(PerlIO_fileno(f), TIOCGWINSZ, &w) == -1)
XSRETURN_NO;
XPUSHs(sv_2mortal(newSViv(w.ws_col)));
@@ -32,14 +32,14 @@
XPUSHs(sv_2mortal(newSViv(w.ws_row)));
void
-pixels( f = stdin )
- FILE *f;
+pixels( f = PerlIO_stdin() )
+ PerlIO *f;
PREINIT:
struct winsize w;
PPCODE:
- if (ioctl(0, TIOCGWINSZ, &w) == -1)
+ if (ioctl(PerlIO_fileno(f), TIOCGWINSZ, &w) == -1)
XSRETURN_NO;
XPUSHs(sv_2mortal(newSViv(w.ws_xpixel)));
Index: .cvsignore
===================================================================
RCS file: /cvs/extras/rpms/perl-Term-Size/F-9/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- .cvsignore 5 Nov 2008 22:49:22 -0000 1.1
+++ .cvsignore 6 Nov 2008 04:30:42 -0000 1.2
@@ -0,0 +1 @@
+Term-Size-0.2.tar.gz
Index: sources
===================================================================
RCS file: /cvs/extras/rpms/perl-Term-Size/F-9/sources,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sources 5 Nov 2008 22:49:22 -0000 1.1
+++ sources 6 Nov 2008 04:30:42 -0000 1.2
@@ -0,0 +1 @@
+982b5df8351e7654a42b7bffc0bf1d57 Term-Size-0.2.tar.gz
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
Fedora-perl-devel-list mailing list
Fedora-perl-devel-list@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/fedora-perl-devel-list
