Changeset 16142 for lang/perl/plagger

Show
Ignore:
Timestamp:
07/23/08 22:54:05 (4 months ago)
Author:
poppen
Message:

trim spaces

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/plagger/assets/plugins/CustomFeed-Script/www_nhk_or_jp_gogaku_english_business2.pl

    r16109 r16142  
    3939sub to_string { 
    4040    $_->as_string; 
    41 }  
     41} 
    4242 
    4343sub mk_date { 
    44     my $input = shift;  
     44    my $input = shift; 
    4545    return unless ($input =~ m!(\d+)月(\d+)日!); 
    4646 
    4747    my $month = $1; 
    4848    my $day = $2; 
    49      
     49 
    5050    my $today = DateTime->now(time_zone => 'Asia/Tokyo')->truncate(to => 'day'); 
    5151    my $this = $today->clone->set(month => $month, day => $day);