Changeset 15326

Timestamp:

02/22/07 19:58:44 (21 months ago)

Author:

lwall

Message:

Added configurable tabstop.

Files:

• src/perl6/Perl-6.0.0-STD.pm (modified) (1 diff)

src/perl6/Perl-6.0.0-STD.pm

@@ -1234 +1234 @@
                 for @heredoc_initial_strings {
                     next if s/^ $ws //;   # reward consistent tabbing
-                    s/^^ (\t+) /{ ' ' x ($0 * 8) }/;
+                    s/^^ (\t+) /{ ' ' x ($0 * (COMPILING::<$?TABSTOP> // 8)) }/;
                     s/^ $wsequiv // or s/^ \h+ //;
                 }