Changeset 29
- Timestamp:
- 02/12/07 20:48:59 (2 years ago)
- Files:
-
- trunk/Tagtools.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/Tagtools.pm
r28 r29 34 34 }; 35 35 *{$whence."::_calendar"} = sub { 36 my $self = shift;37 36 my $arg = shift; 38 37 my ($y, $m) = split /-/, ($arg || Time::Piece->new->ymd);
