| 28 |
my $file_name = $self->_get_file_name ($_[0], 1); |
my $file_name = $self->_get_file_name ($_[0], 1); |
| 29 |
my $textref = $_[1]; |
my $textref = $_[1]; |
| 30 |
|
|
|
my $has_file = -f $file_name; |
|
|
|
|
| 31 |
open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!"; |
open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!"; |
| 32 |
print $file $$textref; |
print $file $$textref; |
| 33 |
|
close $file; |
| 34 |
|
|
| 35 |
## TODO: cvs |
$self->{version_control}->add_file ($file_name) if $self->{version_control}; |
| 36 |
} # set_data |
} # set_data |
| 37 |
|
|
| 38 |
1; |
1; |
Parent Directory
| 
Revision Log
| 
Patch