Changeset 1234

Show
Ignore:
Timestamp:
08/08/06 13:22:33
Author:
miyagawa
Message:

set_time_zone should return $self via http://d.hatena.ne.jp/hakobe932/20060808/1155010282

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/lib/Plagger/Date.pm

    r1229 r1234  
    7979 
    8080sub set_time_zone { 
    81     my($self, $tz) = @_; 
     81    my $self = shift; 
     82 
    8283    eval { 
    83         $self->SUPER::set_time_zone($tz); 
     84        $self->SUPER::set_time_zone(@_); 
    8485    }; 
    8586    if ($@) { 
    8687        $self->SUPER::set_time_zone('UTC'); 
    8788    } 
     89 
     90    return $self; 
    8891} 
    8992