rpms/perl-Term-Size/F-9 import.log, NONE, 1.1 perl-Term-Size.spec, NONE, 1.1 rt38594.perlio.patch, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



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

[Index of Archives]     [Fedora Announce]     [Fedora Kernel]     [Fedora Testing]     [Fedora Legacy Announce]     [Fedora PHP Devel]     [Kernel Devel]     [Fedora Legacy]     [Fedora Maintainers]     [Fedora Desktop]     [PAM]     [Red Hat Development]     [Big List of Linux Books]     [Gimp]     [Yosemite Information]
  Powered by Linux