Parent Directory
| 
Revision Log
| 
Patch
| revision 1.2 by wakaba, Sat Nov 8 08:09:31 2008 UTC | revision 1.3 by wakaba, Sat Nov 8 09:29:09 2008 UTC | |
|---|---|---|
| # | Line 29 my $get_file_name = sub { | Line 29 my $get_file_name = sub { |
| 29 | }; # $get_file_name | }; # $get_file_name |
| 30 | ||
| 31 | sub get_data ($$) { | sub get_data ($$) { |
| 32 | my $self = shift; | my $self = $_[0]; |
| 33 | my $file_name = $get_file_name->($self, $_[0]); | my $file_name = $get_file_name->($self, [@{$_[1]}]); |
| 34 | ||
| 35 | return undef unless -f $file_name; | return undef unless -f $file_name; |
| 36 |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |