Changeset 23512

Timestamp:

11/13/08 10:39:36 (5 years ago)

Author:

tokuhirom

Message:

micro optimization

Files:

• lang/perl/MENTA/trunk/lib/MENTA.pm (modified) (3 diffs)

lang/perl/MENTA/trunk/lib/MENTA.pm

@@ -70 +70 @@
                 }
             } else {
-                die "「$mode」というモードは存在しません";
+                die "「${mode}」というモードは存在しません";
             }
         } elsif (-f $path) {
@@ -192 +192 @@
 sub read_file {
     my $fname = shift;
-    open my $fh, '<:utf8', $fname or die "$fname を読み込みように開けません: $!";
+    open my $fh, '<:utf8', $fname or die "${fname} を読み込みように開けません: $!";
     my $s = do { local $/; join '', <$fh> };
     close $fh;
@@ -200 +200 @@
 sub write_file {
     my ($fname, $stuff) = @_;
-    open my $fh, '>:utf8', $fname or die "$fname を書き込み用に開けません： $!";
+    open my $fh, '>:utf8', $fname or die "${fname} を書き込み用に開けません： $!";
     print $fh $stuff;
     close $fh;