Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1 by wakaba, Sun Nov 9 14:08:58 2008 UTC | revision 1.3 by wakaba, Mon Mar 2 07:32:30 2009 UTC | |
|---|---|---|
| # | Line 23 sub add_file ($$) { | Line 23 sub add_file ($$) { |
| 23 | $self->{modified_files}->{$file_name} = 1; | $self->{modified_files}->{$file_name} = 1; |
| 24 | } # add_file | } # add_file |
| 25 | ||
| 26 | ## TODO: remove_file | |
| 27 | ||
| 28 | sub write_file ($$) { | sub write_file ($$) { |
| 29 | my $self = shift; | my $self = shift; |
| 30 | my $file_name = shift; | my $file_name = shift; |
| # | Line 38 sub commit_changes ($$) { | Line 40 sub commit_changes ($$) { |
| 40 | } | } |
| 41 | ||
| 42 | for (keys %{$self->{added_files}}) { | for (keys %{$self->{added_files}}) { |
| 43 | _system ('cvs', 'add', $_); | _system ('cvs', 'add', '-kb', $_); |
| 44 | } | } |
| 45 | ||
| 46 | my @changed; | my @changed; |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |