From: Dobrica Pavlinusic Date: Thu, 24 Jun 2010 15:47:35 +0000 (+0200) Subject: save commit_changed X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=d507c5e802519a96f5b5915b0703a97eb8513f3b save commit_changed --- diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm index 65e2082..2d3b4c7 100644 --- a/lib/MojoFacets/Data.pm +++ b/lib/MojoFacets/Data.pm @@ -658,22 +658,23 @@ sub items { $row->{$_} = $update->{$_}; } } + + $self->_save_change({ + path => $path, + time => $self->param('time') || time(), + user => $self->param('user') || $ENV{'LOGNAME'}, + code => $code, + commit_changed => $commit_changed, + }); + if ( my $description = $self->param('code_description') ) { my $depends = $self->param('code_depends') || die "no code_depends?"; my $path = "$code_path/$depends.$description.pl"; if ( -e $path && ! $self->param('overwrite') ) { warn "# code $path not saved\n"; } else { - write_file( $path, { binmode => ':utf8' }, $code ); + write_file( $path, { binmode => ':utf8' }, "$code\n" ); warn "code $path ", -s $path, " bytes saved\n"; - - $self->_save_change({ - path => $path, - time => $self->param('time') || time(), - user => $self->param('user') || $ENV{'LOGNAME'}, - code => $code, - }); - } }