すでにtv_grab_jpの設定が終わっている人なら、
以下のパッチで番組情報が取得できるようになりました。
ただし、うちのregionは3001と3003と0005です。
それ以外の人は動くか分かりません。
またperl初心者なので、アホなこと書いてる可能性があります。

--- Supplement.pm-bak 2009-02-08 14:38:46.000000000 +0900
+++ Supplement.pm 2009-02-08 15:08:50.000000000 +0900
@@ -96,7 +96,7 @@
my $ua;

sub init_ua {
- $ua = LWP::UserAgent->new( agent => "XMLTV::Supplement/" . $XMLTV::VERSION );
+ $ua = LWP::UserAgent->new( "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)" );
$ua->env_proxy();
}

--- Get_nice.pm-bak 2009-02-08 14:34:33.000000000 +0900
+++ Get_nice.pm 2009-02-08 14:35:46.000000000 +0900
@@ -34,7 +34,7 @@


our $ua = LWP::UserAgent->new;
-$ua->agent("xmltv/$XMLTV::VERSION");
+$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)");
$ua->env_proxy;
#our $get = \&LWP::Simple::get;
our %errors = ();