r27549 - in /trunk/libterm-size-perl: Changes MANIFEST META.yml Makefile.PL Size.pm Size.xs debian/changelog t/ test.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Dec 1 09:05:21 UTC 2008
Author: dmn
Date: Mon Dec 1 09:05:18 2008
New Revision: 27549
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27549
Log:
New upstream release
Added:
trunk/libterm-size-perl/META.yml
- copied unchanged from r27548, branches/upstream/libterm-size-perl/current/META.yml
trunk/libterm-size-perl/t/
- copied from r27548, branches/upstream/libterm-size-perl/current/t/
Removed:
trunk/libterm-size-perl/test.pl
Modified:
trunk/libterm-size-perl/Changes
trunk/libterm-size-perl/MANIFEST
trunk/libterm-size-perl/Makefile.PL
trunk/libterm-size-perl/Size.pm
trunk/libterm-size-perl/Size.xs
trunk/libterm-size-perl/debian/changelog
Modified: trunk/libterm-size-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libterm-size-perl/Changes?rev=27549&op=diff
==============================================================================
--- trunk/libterm-size-perl/Changes (original)
+++ trunk/libterm-size-perl/Changes Mon Dec 1 09:05:18 2008
@@ -1,7 +1,51 @@
Revision history for Perl extension Term::Size.
-0.2 1997-05-13
+0.207 2008-08-16 Term-Size
+ - the original code for retrieving terminal size
+ via XS ioctl is back -- and this dist
+ is again Unix-centric
+ - use Term::Size::Any for platform independency
+
+0.205 2008-02-27 Term-Size-Unix
+ - disabled prototypes in XS code - too misleading
+ to be useful
+ - borrowed rewritten test from Term::Size::Any
+ (which should fix most test failures)
+ - NOTE: this distribution will disappear soon,
+ merging back to the original Term-Size dist
+
+0.204 2006-09-13 Term-Size-Unix
+ - included license in Makefile.PL
+
+0.203 2006-05-21 Term-Size-Unix
+ - moved sources from Term-Size to this distribution
+ - bug fixed: &pixels always used fd 0 rather than fileno(f)
+ - added test scripts "t/00_use.t" and "t/99_pod.t"
+
+0.203 2006-05-21 Term-Size
+ - bug fixed: &pixels always used fd 0 rather than fileno(f)
+ - experimental support for Win32 was introduced by
+ adding a dependency on Term::Size::Win32
+ - added test scripts "t/00_use.t" and "t/99_pod.t"
+ - the XS code moved to distribution Term::Size::Unix -
+ this module is now a thin skin to call the appropriate
+ module Term::Size::Unix or Term::Size::Win32
+
+0.202 2006-05-19 Term-Size
+ - inserted a note to say this is an UNOFFICIAL distribution
+
+0.201 2006-05-18 Term-Size
+ - 'test.pl' rewritten with Test::More and renamed to 't/01_basic.t'
+ - an initializer is now used when creating a struct winsize
+ to avoid what looks like a bug on Cygwin: ioctl(., TIOCGWINSZ, .)
+ does not set ws_xpixel and ws_ypixel fields, leaving them untouched.
+ If they contained garbage, they kept the garbage
+ - attempt to restore AIX compatibility according to suggestion
+ in CPAN RT #11539 (by jydawg [at] xs4all.nl): "termios.h"
+ is not where Unix thinks it should
+
+0.2 1997-05-13 Term-Size
- support filehandle arguments
-0.1 1997-04-23
+0.1 1997-04-23 Term-Size
- original version
Modified: trunk/libterm-size-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libterm-size-perl/MANIFEST?rev=27549&op=diff
==============================================================================
--- trunk/libterm-size-perl/MANIFEST (original)
+++ trunk/libterm-size-perl/MANIFEST Mon Dec 1 09:05:18 2008
@@ -1,9 +1,13 @@
Copyright
Changes
-INSTALL
MANIFEST
Makefile.PL
README
+INSTALL
Size.pm
Size.xs
-test.pl
+
+t/00_use.t
+t/01_basic.t
+t/99_pod.t
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libterm-size-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libterm-size-perl/Makefile.PL?rev=27549&op=diff
==============================================================================
--- trunk/libterm-size-perl/Makefile.PL (original)
+++ trunk/libterm-size-perl/Makefile.PL Mon Dec 1 09:05:18 2008
@@ -1,6 +1,28 @@
+
+use 5;
use ExtUtils::MakeMaker;
+my $EUMM_VERSION = eval $ExtUtils::MakeMaker::VERSION;
+my $is_win32 = ($^O =~ /MSWin/i);
+
WriteMakefile(
- 'NAME' => 'Term::Size',
- 'VERSION_FROM' => 'Size.pm',
-);
+ 'NAME' => 'Term::Size',
+ 'VERSION_FROM' => 'Size.pm',
+ 'PREREQ_PM' => {
+ 'Test::More' => 0, # build
+ },
+ ($] >= 5.005 ? (
+ 'ABSTRACT_FROM' => 'Size.pm',
+ ) : ()),
+ ($EUMM_VERSION >= 6.30_01 ? (
+ LICENSE => 'perl', # needs EEUU > 6.30_01
+ ) : ()),
+
+) unless $is_win32;
+
+ExtUtils::MakeMaker::WriteEmptyMakefile(
+ 'NAME' => 'Term::Size',
+ 'VERSION_FROM' => 'Size.pm',
+) if $is_win32;
+
+
Modified: trunk/libterm-size-perl/Size.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libterm-size-perl/Size.pm?rev=27549&op=diff
==============================================================================
--- trunk/libterm-size-perl/Size.pm (original)
+++ trunk/libterm-size-perl/Size.pm Mon Dec 1 09:05:18 2008
@@ -11,11 +11,11 @@
@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw(chars pixels);
-$VERSION = '0.2';
+$VERSION = '0.207';
=head1 NAME
-Term::Size - Perl extension for retrieving terminal size
+Term::Size - Retrieve terminal size (Unix version)
=head1 SYNOPSIS
@@ -25,6 +25,21 @@
($x, $y) = Term::Size::pixels;
=head1 DESCRIPTION
+
+ THIS IS AN UNOFFICIAL PATCH AGAINST Term-Size 0.2 DISTRIBUTION
+ FOUND ON CPAN (http://search.cpan.org/~timpx/Term-Size-0.2/).
+ IT IS UNOFFICIAL IN THE SENSE THAT THE AUTHOR Tim Goodwin
+ HASN'T APPROVED IT (YET, I HOPE). BECAUSE OF THIS, THIS
+ DISTRIBUTION IS NOT INDEXED AND AVAILABLE VIA cpan OR cpanp
+ SHELLS UNLESS YOU EXPLICITLY SAY
+ "install FERREIRA/Term-Size-0.203.tar.gz".
+
+ THIS IS UNDELICATE? I THINK IT IS IN A CERTAIN SENSE. BUT IT
+ IS A WAY TO UNFREEZE THE CURRENT DISTRIBUTION STATUS. IF TIM
+ DISAPPROVES, I WILL REMOVE THIS DISTRIBUTION RIGHT AWAY.
+ IF HE APPROVES, I WILL REMOVE THIS DISTRIBUTION RIGHT AWAY
+ AND WORK OUT (AFTER BEEN GIVEN MAINTAINERSHIP STATUS)
+ A DISTRIBUTION WITHOUT THIS NOTE AND WHICH INDEXES CORRECTLY.
B<Term::Size> is a Perl module which provides a straightforward way to
retrieve the terminal size.
@@ -87,6 +102,9 @@
Tim Goodwin, <tim at uunet.pipex.com>, 1997-04-23.
+Candidate for maintainership:
+Adriano Ferreira, <ferreira at cpan.org>, 2006-05-19.
+
=cut
bootstrap Term::Size $VERSION;
Modified: trunk/libterm-size-perl/Size.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libterm-size-perl/Size.xs?rev=27549&op=diff
==============================================================================
--- trunk/libterm-size-perl/Size.xs (original)
+++ trunk/libterm-size-perl/Size.xs Mon Dec 1 09:05:18 2008
@@ -6,7 +6,11 @@
#include "perl.h"
#include "XSUB.h"
+#ifndef _AIX
#include <sys/termios.h>
+#else
+#include <termios.h>
+#endif
#ifdef __cplusplus
}
@@ -14,14 +18,14 @@
MODULE = Term::Size PACKAGE = Term::Size
-PROTOTYPES: ENABLE
+PROTOTYPES: DISABLE
void
chars( f = stdin )
FILE *f;
PREINIT:
- struct winsize w;
+ struct winsize w = { 0, 0, 0, 0 };
PPCODE:
if (ioctl(fileno(f), TIOCGWINSZ, &w) == -1)
@@ -36,10 +40,10 @@
FILE *f;
PREINIT:
- struct winsize w;
+ struct winsize w = { 0, 0, 0, 0 };
PPCODE:
- if (ioctl(0, TIOCGWINSZ, &w) == -1)
+ if (ioctl(fileno(f), TIOCGWINSZ, &w) == -1)
XSRETURN_NO;
XPUSHs(sv_2mortal(newSViv(w.ws_xpixel)));
Modified: trunk/libterm-size-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libterm-size-perl/debian/changelog?rev=27549&op=diff
==============================================================================
--- trunk/libterm-size-perl/debian/changelog (original)
+++ trunk/libterm-size-perl/debian/changelog Mon Dec 1 09:05:18 2008
@@ -1,9 +1,13 @@
-libterm-size-perl (0.2-5) UNRELEASED; urgency=low
+libterm-size-perl (0.207-1) UNRELEASED; urgency=low
+ [ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
- -- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:47:40 +0100
+ [ Damyan Ivanov ]
+ * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org> Mon, 01 Dec 2008 10:47:56 +0200
libterm-size-perl (0.2-4) unstable; urgency=low
More information about the Pkg-perl-cvs-commits
mailing list