| 5 |
my $data2_dir_name = q[data2/]; |
my $data2_dir_name = q[data2/]; |
| 6 |
my $data2_suffix = q[.dat]; |
my $data2_suffix = q[.dat]; |
| 7 |
my $lock_suffix = q[.lock]; |
my $lock_suffix = q[.lock]; |
| 8 |
|
|
| 9 |
|
## SEE ALSO: |Makefile|. |
| 10 |
my $fallback_file_name = $data2_dir_name . 'fallback' . $data2_suffix; |
my $fallback_file_name = $data2_dir_name . 'fallback' . $data2_suffix; |
| 11 |
|
|
| 12 |
|
## SEE ALSO: |Makefile|. |
| 13 |
my $patch_file_name = $data2_dir_name . 'modified.txt'; |
my $patch_file_name = $data2_dir_name . 'modified.txt'; |
| 14 |
|
|
| 15 |
our $UseCVS //= 1; |
our $UseCVS //= 1; |
| 204 |
unless (defined $entry->{en}) { |
unless (defined $entry->{en}) { |
| 205 |
$entry = get_fallback_entry ($hash); |
$entry = get_fallback_entry ($hash); |
| 206 |
} |
} |
| 207 |
$entry->{tags} ||= [] if defined $entry->{en}; |
$entry->{tags} ||= []; |
| 208 |
$entry->{isPattern} = 1 if $is_pattern; |
$entry->{isPattern} = 1 if $is_pattern; |
| 209 |
|
|
| 210 |
return $entry; |
return $entry; |