Changeset 23512
- Timestamp:
- 11/13/08 10:39:36 (5 years ago)
- Files:
-
- 1 modified
-
lang/perl/MENTA/trunk/lib/MENTA.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/MENTA/trunk/lib/MENTA.pm
r23511 r23512 70 70 } 71 71 } else { 72 die "「$ mode」というモードは存在しません";72 die "「${mode}」というモードは存在しません"; 73 73 } 74 74 } elsif (-f $path) { … … 192 192 sub read_file { 193 193 my $fname = shift; 194 open my $fh, '<:utf8', $fname or die "$ fnameを読み込みように開けません: $!";194 open my $fh, '<:utf8', $fname or die "${fname} を読み込みように開けません: $!"; 195 195 my $s = do { local $/; join '', <$fh> }; 196 196 close $fh; … … 200 200 sub write_file { 201 201 my ($fname, $stuff) = @_; 202 open my $fh, '>:utf8', $fname or die "$ fnameを書き込み用に開けません: $!";202 open my $fh, '>:utf8', $fname or die "${fname} を書き込み用に開けません: $!"; 203 203 print $fh $stuff; 204 204 close $fh;
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)