2007年7月6日

初めてのパッチを書いた

今さら、CGI::Application かよってのは置いておいて、、
CGI::Application::Plugin::Config::YAML を使うときに、いきなり、config_read を使うと、"No config file specified!" とか言われて怒られるのだが、、config_read に、ファイル名渡してるんだから、それ使ってよ。って事で、パッチ書いてみました、、
※初めてのパッチ作成
参考:diffとpatchについて
*** YAML.pm.org Fri Oct 28 16:49:42 2005
--- YAML.pm Fri Jul 6 19:09:51 2007
***************
*** 78,93 ****

sub config_read {
my ($self, $file) = @_;
! my $conf = $self->config();
$conf->read($file);
return;
}

sub config {
! my $self = shift;
my $create = !$self->{__CONFIG_YAML}->{__CONFIG_OBJ} || $self->{__CONFIG_YAML}->{__FILE_CHANGED};
if ( $create ) {
! my $file_name = $self->config_file or die "No config file specified!";

my $conf;
eval{
--- 78,93 ----

sub config_read {
my ($self, $file) = @_;
! my $conf = $self->config($file);
$conf->read($file);
return;
}

sub config {
! my ($self, $file) = @_;
my $create = !$self->{__CONFIG_YAML}->{__CONFIG_OBJ} || $self->{__CONFIG_YAML}->{__FILE_CHANGED};
if ( $create ) {
! my $file_name = $self->config_file($file) or die "No config file specified!";

my $conf;
eval{
如何でしょう??
作者様に送るかどうか、、、どうしよう、、とりあえず、送ってみようかな、、id:nekokak さんが作ったものなので、日本語でお願いできるし、、orz

0 件のコメント: