Attachment #179303 for bug #216455

View | Details | Raw Unified | Return to bug 216455
Collapse All | Expand All

Lines 2-8 Link Here

(-)Makefile (-1 / +1 lines)
2	# $FreeBSD$	2	# $FreeBSD$
3		3
4	PORTNAME= extract_url	4	PORTNAME= extract_url
5	PORTVERSION= 1.6.1	5	PORTVERSION= 1.6.2
6	DISTVERSIONPREFIX= v	6	DISTVERSIONPREFIX= v
7	CATEGORIES= textproc	7	CATEGORIES= textproc
8		8

Lines 1-3 Link Here

(-)distinfo (-3 / +3 lines)
1	TIMESTAMP = 1485089324	1	TIMESTAMP = 1485332045
2	SHA256 (m3m0ryh0l3-extracturl-v1.6.1_GH0.tar.gz) = 6ce3a977477cce6c7c8355500db4ef660d5b22118df6534d3ab022124c62a393	2	SHA256 (m3m0ryh0l3-extracturl-v1.6.2_GH0.tar.gz) = 5f0b568d5c9449f477527b4077d8269f1f5e6d6531dfa5eb6ca72dbacab6f336
3	SIZE (m3m0ryh0l3-extracturl-v1.6.1_GH0.tar.gz) = 16192	3	SIZE (m3m0ryh0l3-extracturl-v1.6.2_GH0.tar.gz) = 16296




--- extract_url.pl.orig	2017-01-18 14:59:52 UTC
+++ extract_url.pl
@@ -54,18 +54,7 @@ sub VERSION_MESSAGE {
 
 my $term_cols = 80;
 my ($term_rows, $term_wpix, $term_hpix);
-if (eval "use Term::Readkey") {
-    ($term_cols, $term_rows, $term_wpix, $term_hpix) = GetTerminalSize();
-} else {
-    require 'sys/ioctl.ph';
-    if (defined &TIOCGWINSZ and open(TTY, "+</dev/tty")) {
-        my $winsize = '';
-        unless (ioctl(TTY, &TIOCGWINSZ, $winsize)) {
-            die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
-        }
-        ($term_rows, $term_cols, $term_wpix, $term_hpix) = unpack('S4', $winsize);
-    }
-}
+require 'sys/ioctl.ph';
 my $list_width = $term_cols - 4; # 4 is for the border width on either side
 
 my %options;

Return to bug 216455

Lines 1-22 Link Here

(-)files/patch-extract__url.pl (-22 lines)
1	--- extract_url.pl.orig 2017-01-18 14:59:52 UTC
2	+++ extract_url.pl
3	@@ -54,18 +54,7 @@ sub VERSION_MESSAGE {
4
5	my $term_cols = 80;
6	my ($term_rows, $term_wpix, $term_hpix);
7	-if (eval "use Term::Readkey") {
8	- ($term_cols, $term_rows, $term_wpix, $term_hpix) = GetTerminalSize();
9	-} else {
10	- require 'sys/ioctl.ph';
11	- if (defined &TIOCGWINSZ and open(TTY, "+</dev/tty")) {
12	- my $winsize = '';
13	- unless (ioctl(TTY, &TIOCGWINSZ, $winsize)) {
14	- die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
15	- }
16	- ($term_rows, $term_cols, $term_wpix, $term_hpix) = unpack('S4', $winsize);
17	- }
18	-}
19	+require 'sys/ioctl.ph';
20	my $list_width = $term_cols - 4; # 4 is for the border width on either side
21
22	my %options;