deskutils/mencal/files/patch-mencal


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

--- mencal.orig	Thu Jul 17 09:26:57 2003
+++ mencal	Thu Jul 17 09:27:35 2003
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl -w
 
 ##< month object >##
 
@@ -276,15 +276,6 @@
     }
   }
   
-  my @locales=split("\n", `locale -c LC_TIME`);
-  if(($#locales>=1) && length($locales[1])) {
-    $config{'topline'}='';
-    foreach my $day (split(';', $locales[1])) { 
-      $config{'topline'}.=sprintf("% 2s ", substr($day, 0, 2));
-    }
-    $config{'topline'}=~s/ +$//;
-  }
-  $config{'topline'}=~s/;/ /g;
   $config{'monday_first'} && $config{'topline'}=~s/^(..) (.+)$/$2 $1/;
 
   $config{'show_type'}=~/^(1|3|y)$/ || ($config{'show_type'}='1');