Changeset 22858 for src

Timestamp:

11/03/08 17:18:40 (2 months ago)

Author:

lwall

Message:

[tryfile] allow files specified by stdin, with knowledge of svn output
[STD] don't need inaccurate $COMPILING::LINE anymore

Location:

src/perl6

Files:

• STD.pm (modified) (2 diffs)
• tryfile (modified) (1 diff)

src/perl6/STD.pm

@@ -511 +511 @@
     :dba('vertical whitespace')
     \v
-    { $COMPILING::LINE++ } # XXX wrong several ways, use self.lineof($¢.pos)
     [ '#DEBUG -1' { say "DEBUG"; $STD::DEBUG = $*DEBUG = -1; } ]?
 }
@@ -1974 +1973 @@
                             if $ch ~~ "\n" {
                                 $multiline++;
-                                $COMPILING::LINE++; # bypasses <vws>
                             }
                         }}

src/perl6/tryfile

@@ -5 +5 @@
 use YAML::XS;
 use Encode;
+
+if (not @ARGV) {
+    @ARGV = <STDIN>;
+    s/^[AU]+\s+// for @ARGV;
+}
 
 for my $file (@ARGV) {