Changeset 23342

Timestamp:

11/12/08 16:05:20 (5 years ago)

Author:

tokuhirom

Message:

indent そろえる

Files:

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

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

@@ -14 +14 @@
     $src =~ s{###\s+INCLUDE\s+'([^']+)'\s+###}{
         my $fname = $1;
-        "{\n" . read_file($fname) . "}\n"
+        "{\n    " . join("\n    ", split("\n", read_file($fname))) . "\n}\n"
     }gem;
     while (my ($key, $val) = each %$params) {
@@ -45 +45 @@
     });
     $menta =~ s/use MENTA::Base;/package main;/g;
+    $menta =~ s/use lib 'lib';//;
     say "index.cgi を出力しています";
     write_file("$OUTPUT_DIR/index.cgi" => $menta);