22 lines
852 B
Plaintext
22 lines
852 B
Plaintext
$OpenBSD: patch-wmtheme,v 1.3 2002/04/22 14:40:09 lebel Exp $
|
|
--- wmtheme.orig Sat Dec 8 23:11:28 2001
|
|
+++ wmtheme Mon Apr 22 10:36:42 2002
|
|
@@ -1361,7 +1361,7 @@ sub screensize {
|
|
my ($rows, $cols);
|
|
|
|
$rows = ($sttyout =~ /\brows (\d+)/ and $1 > 4) ? $1 : 24;
|
|
- $cols = ($sttyout =~ /\bcolumns (\d+)/ and $1 > 49) ? $1 : 50;
|
|
+ $cols = ($sttyout =~ /\bcolumns (\d+)/ and $1 > 79) ? $1 : 80;
|
|
($rows, $cols);
|
|
}
|
|
|
|
@@ -1531,7 +1531,7 @@ sub getfiletypes {
|
|
# filename and a colon, and is padded with spaces such that the result
|
|
# always begins at the same column.
|
|
|
|
- my @types = split(/\n/, forktick("file -f \Q$file_input\E"));
|
|
+ my @types = split(/\n/, forktick("file -f \Q$file_input\E | sed -e \Qs;^[^:]*: *;;g\E"));
|
|
unlink $file_input or choke("can't remove temporary file $file_input: $!");
|
|
|
|
delete $cleanups{getfiletypes};
|