Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1 by wakaba, Sun Nov 9 06:46:47 2008 UTC | revision 1.2 by wakaba, Sun Nov 9 14:08:58 2008 UTC | |
|---|---|---|
| # | Line 26 sub _get_file_name ($$$) { | Line 26 sub _get_file_name ($$$) { |
| 26 | mkdir $dir1 or die "$0: $dir1: $!"; | mkdir $dir1 or die "$0: $dir1: $!"; |
| 27 | } | } |
| 28 | ||
| unless (-d $dir1 . '/CVS') { | ||
| ## TODO: ... | ||
| } | ||
| 29 | unless (-d $dir2) { | unless (-d $dir2) { |
| 30 | mkdir $dir2 or die "$0: $dir2: $!"; | mkdir $dir2 or die "$0: $dir2: $!"; |
| 31 | } | } |
| 32 | ||
| 33 | unless (-d $dir2 . '/CVS') { | if ($self->{version_control}) { |
| 34 | ## TODO: ... | $self->{version_control}->add_directory ($dir1); |
| 35 | $self->{version_control}->add_directory ($dir2); | |
| 36 | } | } |
| 37 | ||
| 38 | return $file_name; | return $file_name; |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |