Parent Directory
| 
Revision Log
| 
Patch
| revision 1.9 by apache, Sun Oct 26 07:03:10 2008 UTC | revision 1.10 by wakaba, Sun Oct 26 07:08:12 2008 UTC | |
|---|---|---|
| # | Line 158 sub commit_entries ($) { | Line 158 sub commit_entries ($) { |
| 158 | } | } |
| 159 | ||
| 160 | my $msg = shift // $0; | my $msg = shift // $0; |
| 161 | system_ ('cvs', 'commit', -m => $msg) if $UseCVS; | system_ ('cvs', 'commit', -m => $msg, $data2_dir_name) if $UseCVS; |
| 162 | } # commit_entries | } # commit_entries |
| 163 | ||
| 164 | sub get_all_entries () { | sub get_all_entries () { |
| # | Line 209 sub htescape ($) { | Line 209 sub htescape ($) { |
| 209 | } # htescape | } # htescape |
| 210 | ||
| 211 | sub system_ (@) { | sub system_ (@) { |
| 212 | (system @_) == 0 or die "$0: $?"; | (system join (' ', map {quotemeta $_} @_) . " > /dev/null") == 0 |
| 213 | or die "$0: $?"; | |
| 214 | } # system_ | } # system_ |
| 215 | ||
| 216 | 1; | 1; |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |