Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

update prototype of builtins like binmode and seek

  • Loading branch information...
commit 9e6e82c66cced9c0c6a3fbbfa05abb493639ac45 1 parent 5d617b5
@FROGGS FROGGS authored
Showing with 123 additions and 148 deletions.
  1. +94 −123 STATUS-m.md
  2. +29 −25 lib/Perl5/Grammar.nqp
View
217 STATUS-m.md
@@ -3,7 +3,7 @@
<tr><th></th><th>pass</th><th>fail</th><th>todo</th><th>skip</th><th>spec</th></tr>
</thead>
<tbody>
- <tr align='center'><td align='left'>summary</td><td>5513</td><td>35637</td><td>5</td><td>1809</td><td>42877</td></tr>
+ <tr align='center'><td align='left'>summary</td><td>5514</td><td>35645</td><td>5</td><td>1809</td><td>42886</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/pack.v5</td><td>2380</td><td>12317</td><td>0</td><td>7</td><td>14704</td></tr>
<tr><td colspan='5'>This type cannot unbox to a native string<br />
in sub MAKE_REGEX at src/gen/m-CORE.setting:12959<br />
@@ -83,7 +83,7 @@ Index out of range. Is: 1, should be in 0..0<br />
<tr align='center'><td align='left'>op/negate.v5</td><td>31</td><td>14</td><td>0</td><td>0</td><td>45</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/splice.v5</td><td>28</td><td>1</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>No such method 'splice' for invocant of type 'Any'<br />
- in sub P5splice at lib/Perl5/Terms.pm:1054<br />
+ in sub P5splice at lib/Perl5/Terms.pm:1056<br />
in block at t/spec/op/splice.v5:82<br />
<br /> 29 tests more than planned were run<br />
</td></tr>
@@ -130,8 +130,8 @@ to preserve list context inside function call<br />
<tr><td colspan='5'>Cannot call 'match'; none of these signatures match:<br />
:(Cool:D: Any $target, *%adverbs)<br />
in method Bool at src/gen/m-CORE.setting:13044<br />
- in sub P5Bool at lib/Perl5/Terms.pm:372<br />
- in sub P5Bool at lib/Perl5/Terms.pm:372<br />
+ in sub P5Bool at lib/Perl5/Terms.pm:374<br />
+ in sub P5Bool at lib/Perl5/Terms.pm:374<br />
in sub isnt at t/spec/comp/opsubs.v5:66<br />
in block at t/spec/comp/opsubs.v5:1<br />
</td></tr>
@@ -216,12 +216,7 @@ ce
</td></tr>
<tr align='center'><td align='left'>op/context.v5</td><td>6</td><td>1</td><td>0</td><td>0</td><td>7</td></tr>
<tr align='center'><td align='left'>op/chr.v5</td><td>6</td><td>36</td><td>0</td><td>0</td><td>42</td></tr>
- <tr align='center'><td align='left' rowspan='2'>cmd/mod.v5</td><td>6</td><td>7</td><td>0</td><td>0</td><td>13</td></tr>
- <tr><td colspan='5'>Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:81<br />
- in block at t/spec/cmd/mod.v5:15<br />
-</td></tr>
+ <tr align='center'><td align='left'>cmd/mod.v5</td><td>6</td><td>7</td><td>0</td><td>0</td><td>13</td></tr>
<tr align='center'><td align='left'>mro/isa_aliases_utf8.v5</td><td>6</td><td>6</td><td>0</td><td>0</td><td>12</td></tr>
<tr align='center'><td align='left' rowspan='2'>mro/isa_aliases.v5</td><td>6</td><td>7</td><td>0</td><td>0</td><td>13</td></tr>
<tr><td colspan='5'>===SORRY!===<br />
@@ -245,7 +240,7 @@ Useless use of constant integer 42 in sink context (line 15)<br />
<tr align='center'><td align='left'>t/v5/03-num.v5</td><td>4</td><td>4</td><td>0</td><td>0</td><td>8</td></tr>
<tr align='center'><td align='left' rowspan='2'>re/reg_nc_tie.v5</td><td>4</td><td>33</td><td>0</td><td>0</td><td>37</td></tr>
<tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
- in sub exists at lib/Perl5/Terms.pm:242<br />
+ in sub exists at lib/Perl5/Terms.pm:244<br />
in block at t/spec/re/reg_nc_tie.v5:32<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/pos.v5</td><td>4</td><td>8</td><td>0</td><td>0</td><td>12</td></tr>
@@ -263,17 +258,17 @@ Useless use of constant integer 42 in sink context (line 15)<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/heredoc.v5</td><td>4</td><td>5</td><td>0</td><td>0</td><td>9</td></tr>
<tr><td colspan='5'>Ending delimiter HEREDOC not found ---<br />
-===SORRY!=== Error while compiling tmp30453A.30453<br />
+===SORRY!=== Error while compiling tmp26436A.26436<br />
Couldn't parse heredoc construct<br />
-at tmp30453A.30453:1<br />
+at tmp26436A.26436:1<br />
------&gt; use v5; print &lt;&lt;⏏;<br />
-===SORRY!=== Error while compiling tmp30453A.30453<br />
+===SORRY!=== Error while compiling tmp26436A.26436<br />
Couldn't parse heredoc construct<br />
-at tmp30453A.30453:1<br />
+at tmp26436A.26436:1<br />
------&gt; use v5; print &lt;&lt;⏏&lt;EOL&gt;<br />
-===SORRY!=== Error while compiling tmp30453A.30453<br />
+===SORRY!=== Error while compiling tmp26436A.26436<br />
Confused<br />
-at tmp30453A.30453:4<br />
+at tmp26436A.26436:4<br />
------&gt; &lt;BOL&gt;⏏&lt;EOL&gt;</td></tr>
<tr align='center'><td align='left'>op/cond.v5</td><td>4</td><td>0</td><td>0</td><td>0</td><td>4</td></tr>
<tr align='center'><td align='left'>cmd/elsif.v5</td><td>4</td><td>0</td><td>0</td><td>0</td><td>4</td></tr>
@@ -283,7 +278,7 @@ at tmp30453A.30453:4<br />
<tr align='center'><td align='left' rowspan='2'>run/switcht.v5</td><td>3</td><td>10</td><td>0</td><td>0</td><td>13</td></tr>
<tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:994<br />
+ in sub P5print at lib/Perl5/Terms.pm:996<br />
in block at t/spec/run/switcht.v5:35<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/sselect.v5</td><td>3</td><td>8</td><td>0</td><td>0</td><td>11</td></tr>
@@ -337,6 +332,17 @@ Undefined subroutine &amp;main::delete called<br />
<tr align='center'><td align='left' rowspan='2'>run/noswitch.v5</td><td>2</td><td>0</td><td>0</td><td>1</td><td>3</td></tr>
<tr><td colspan='5'> 1 skipped: hangs<br />
</td></tr>
+ <tr align='center'><td align='left' rowspan='2'>run/locale.v5</td><td>2</td><td>7</td><td>0</td><td>0</td><td>9</td></tr>
+ <tr><td colspan='5'>Potential difficulties:<br />
+ Redeclaration of symbol $ENV<br />
+ at t/spec/run/locale.v5:88<br />
+ ------&gt; local $ENV{LC_ALL}⏏; # so it never overrides LC_NUMERIC<br />
+ Redeclaration of symbol $ENV<br />
+ at t/spec/run/locale.v5:165<br />
+ ------&gt; local $ENV{LC_ALL}⏏; # so it never overrides LC_NUMERIC<br />
+Undefined subroutine &amp;main::LC_NUMERIC called<br />
+ in block at t/spec/run/locale.v5:27<br />
+</td></tr>
<tr align='center'><td align='left'>re/overload.v5</td><td>2</td><td>1</td><td>0</td><td>0</td><td>3</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/sub.v5</td><td>2</td><td>14</td><td>0</td><td>0</td><td>16</td></tr>
<tr><td colspan='5'>===SORRY!===<br />
@@ -345,13 +351,13 @@ Can't locate object method "import" via package "main" (perhaps you forgot to lo
<tr align='center'><td align='left' rowspan='2'>op/print.v5</td><td>2</td><td>1</td><td>0</td><td>0</td><td>3</td></tr>
<tr><td colspan='5'>Potential difficulties:<br />
Redeclaration of symbol $fh<br />
- at tmp30552A.30552:7<br />
+ at tmp26540A.26540:7<br />
------&gt; open my $fh⏏, "&lt;:utf8", \"\xC1\xAF\xC1\xAF\xC1\xB0\x<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
- in block at tmp30552A.30552:1<br />
+ in block at tmp26540A.26540:1<br />
</td></tr>
<tr align='center'><td align='left'>base/if.v5</td><td>2</td><td>0</td><td>0</td><td>0</td><td>2</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/defins.v5</td><td>2</td><td>25</td><td>0</td><td>0</td><td>27</td></tr>
@@ -367,20 +373,20 @@ Failed to open file: no such file or directory<br />
------&gt; while (my $name ⏏= each %hash)<br />
Too many positional parameters passed; got 2 but expected 1<br />
in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:994<br />
+ in sub P5print at lib/Perl5/Terms.pm:996<br />
in block at t/spec/op/defins.v5:13<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/dbm.v5</td><td>2</td><td>3</td><td>0</td><td>0</td><td>5</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;Foo::dbmopen called<br />
- in sub new at tmp30360A.30360:7<br />
- in block at tmp30360A.30360:23<br />
- in block at tmp30360A.30360:2<br />
+ in sub new at tmp26346A.26346:7<br />
+ in block at tmp26346A.26346:23<br />
+ in block at tmp26346A.26346:2<br />
Undefined subroutine &amp;Foo::dbmopen called<br />
- in sub new at tmp30360A.30360:6<br />
- in block at tmp30360A.30360:22<br />
- in block at tmp30360A.30360:1<br />
+ in sub new at tmp26346A.26346:6<br />
+ in block at tmp26346A.26346:22<br />
+ in block at tmp26346A.26346:1<br />
Undefined subroutine &amp;main::dbmopen called<br />
- in block at tmp30360A.30360:1<br />
+ in block at tmp26346A.26346:1<br />
===SORRY!===<br />
MVMArray: Index out of bounds<br />
Undefined subroutine &amp;main::dbmopen called<br />
@@ -394,9 +400,9 @@ Undefined subroutine &amp;main::dbmopen called<br />
<tr align='center'><td align='left' rowspan='2'>op/concat2.v5</td><td>2</td><td>1</td><td>0</td><td>0</td><td>3</td></tr>
<tr><td colspan='5'>WARNINGS:<br />
Useless use of "," in expression "= bless[chr 256],o::" in sink context (line 29)<br />
-===SORRY!=== Error while compiling tmp30342A.30342<br />
+===SORRY!=== Error while compiling tmp26327A.26327<br />
Couldn't find terminator |<br />
-at tmp30342A.30342:14<br />
+at tmp26327A.26327:14<br />
------&gt; path(bless {},"Path::Class::Dir"), "\n";⏏&lt;EOL&gt;</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/chdir.v5</td><td>2</td><td>30</td><td>0</td><td>16</td><td>48</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;main::opendir called<br />
@@ -424,8 +430,8 @@ at tmp30342A.30342:14<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>io/perlio_fail.v5</td><td>1</td><td>14</td><td>0</td><td>0</td><td>15</td></tr>
<tr><td colspan='5'>No such method 'close' for invocant of type 'Any'<br />
+ in sub P5close at lib/Perl5/Terms.pm:132<br />
in sub P5close at lib/Perl5/Terms.pm:130<br />
- in sub P5close at lib/Perl5/Terms.pm:128<br />
in block at t/spec/io/perlio_fail.v5:1<br />
</td></tr>
<tr align='center'><td align='left'>t/v5/basic.v5</td><td>1</td><td>0</td><td>0</td><td>0</td><td>1</td></tr>
@@ -434,11 +440,7 @@ at tmp30342A.30342:14<br />
Useless use of "," in expression "= 6, 7" in sink context (lines 21, 22)<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>io/dup.v5</td><td>1</td><td>28</td><td>0</td><td>0</td><td>29</td></tr>
- <tr><td colspan='5'>No such method 'STORE' for invocant of type 'STDOUT'<br />
- in method assign_key at src/gen/m-CORE.setting:9217<br />
- in sub postcircumfix:&lt;{ }&gt; at src/gen/m-CORE.setting:2605<br />
- in sub P5open at lib/Perl5/Terms.pm:81<br />
- in sub P5open at lib/Perl5/Terms.pm:77<br />
+ <tr><td colspan='5'>Can't open stdout<br />
in block at t/spec/io/dup.v5:1<br />
</td></tr>
<tr align='center'><td align='left'>t/v5/02-int.v5</td><td>1</td><td>0</td><td>0</td><td>0</td><td>1</td></tr>
@@ -457,7 +459,7 @@ Could not find symbol '&amp;upgrade'<br />
Useless use of "," in expression "my $exit, $exit_arg" in sink context (line 49)<br />
No such symbol '&amp;POSIX::WIFEXITED'<br />
in method fail at src/gen/m-CORE.setting:11236<br />
- in sub P5INDIRECT_NAME_LOOKUP at lib/Perl5/Terms.pm:464<br />
+ in sub P5INDIRECT_NAME_LOOKUP at lib/Perl5/Terms.pm:466<br />
in block at t/spec/run/exit.v5:56<br />
Unhandled exception: No exception handler located for warn<br />
at &lt;unknown&gt;:1 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:print_exception:4294967295)<br />
@@ -476,27 +478,21 @@ Unhandled exception: No exception handler located for warn<br />
Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏foo' (indicated by ⏏)<br />
===SORRY!===<br />
Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏moo' (indicated by ⏏)<br />
-===SORRY!=== Error while compiling tmp30847A.30847<br />
+===SORRY!=== Error while compiling tmp26865A.26865<br />
Two terms in a row<br />
-at tmp30847A.30847:38<br />
+at tmp26865A.26865:38<br />
------&gt; }⏏match("John Smith, 42 years old, secret</td></tr>
<tr align='center'><td align='left' rowspan='2'>comp/term.v5</td><td>1</td><td>22</td><td>0</td><td>0</td><td>23</td></tr>
<tr><td colspan='5'>Invocant requires an instance, but a type object was passed<br />
in method Bridge at src/gen/m-CORE.setting:4459<br />
in sub infix:&lt;&gt;&gt; at src/gen/m-CORE.setting:4380<br />
- in sub infix:&lt;P5&gt;&gt; at lib/Perl5/Terms.pm:291<br />
+ in sub infix:&lt;P5&gt;&gt; at lib/Perl5/Terms.pm:293<br />
in block at t/spec/comp/term.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/setpgrpstack.v5</td><td>1</td><td>2</td><td>0</td><td>0</td><td>3</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;main::setpgrp called<br />
in block at t/spec/op/setpgrpstack.v5:1<br />
</td></tr>
- <tr align='center'><td align='left' rowspan='2'>comp/multiline.v5</td><td>1</td><td>5</td><td>0</td><td>0</td><td>6</td></tr>
- <tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
- in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:994<br />
- in block at t/spec/comp/multiline.v5:50<br />
-</td></tr>
<tr align='center'><td align='left' rowspan='2'>comp/hints.v5</td><td>1</td><td>30</td><td>0</td><td>0</td><td>31</td></tr>
<tr><td colspan='5'>===SORRY!===<br />
Cannot call 'infix:&lt;P5&amp;&gt;'; none of these signatures match:<br />
@@ -577,8 +573,8 @@ at t/spec/op/closure.v5:486<br />
<tr align='center'><td align='left' rowspan='2'>op/coreamp.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>===SORRY!=== Error while compiling t/spec/op/coreamp.v5<br />
Two terms in a row<br />
-at t/spec/op/coreamp.v5:81<br />
-------&gt; lis [&amp;{"CORE::$o"}($in)], [$out], ⏏"&amp;$o in list context";</td></tr>
+at t/spec/op/coreamp.v5:152<br />
+------&gt; my $minargs = $-[⏏0];</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/coresubs.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>===SORRY!=== Error while compiling t/spec/op/coresubs.v5<br />
Two terms in a row<br />
@@ -609,7 +605,7 @@ Cannot call 'postcircumfix&lt;P5[ ]&gt;'; none of these signatures match:<br />
:(Any \SELF, int $pos)<br />
:(Any \SELF, Any $pos)<br />
:(Any \SELF, Positional \pos)<br />
- in sub postcircumfix&lt;P5[ ]&gt; at lib/Perl5/Terms.pm:358<br />
+ in sub postcircumfix&lt;P5[ ]&gt; at lib/Perl5/Terms.pm:360<br />
in block at t/spec/op/do.v5:27<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/exists_sub.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
@@ -652,10 +648,7 @@ at t/spec/op/my.v5:15<br />
<tr align='center'><td align='left' rowspan='2'>comp/line_debug.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>WARNINGS:<br />
Useless use of constant integer 1 in sink context (line 32)<br />
-Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:86<br />
- in block at t/spec/comp/line_debug.v5:1<br />
+Error while creating error string: No exception handler located for warn<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/readdir.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>===SORRY!===<br />
@@ -728,7 +721,7 @@ Could not find symbol '&amp;upgrade'<br />
------&gt; open my $fh⏏, '&lt;', $manifest or die "Can't open $man<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/porting/args_assert.v5:24<br />
in method reify at src/gen/m-CORE.setting:7686<br />
@@ -776,7 +769,7 @@ at t/spec/porting/diag.v5:106<br />
------&gt; open my $m⏏, '&lt;', $manifest or die "Can't open '$ma<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/porting/filenames.v5:32<br />
</td></tr>
@@ -794,7 +787,7 @@ WARNINGS:<br />
Useless use of "\n\t DBcv bitcount cshname force_link_funcs generation lastgotoprobe\n\t mod_latin1_uc modcount no_symref_sv timesbuf uudmap\n\t watchaddr watchok warn_uninit_sv\n " in expression "\n\t DBcv bitcount cshname force_link_funcs generation lastgotoprobe\n\t mod_latin1_uc modcount no_symref_sv timesbuf uudmap\n\t watchaddr watchok warn_uninit_sv\n " in sink context (line 16)<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/porting/globvar.v5:16<br />
</td></tr>
@@ -809,7 +802,7 @@ Could not find Maintainers in any of: /home/froggs/dev/nqp/install/languages/per
------&gt; open my $m⏏, '&lt;', $manifest or die "Can't open '$ma<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/porting/manifest.v5:11<br />
</td></tr>
@@ -924,9 +917,7 @@ at t/spec/re/regex_sets.v5:38<br />
<tr align='center'><td align='left' rowspan='2'>re/regexp.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>WARNINGS:<br />
Useless use of constant integer 1 in sink context (line 401)<br />
-Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:81<br />
+Can't open re/re_tests: <br />
in block at t/spec/re/regexp.v5:77<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>re/regexp_noamp.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
@@ -971,19 +962,6 @@ at t/spec/re/subst_amp.v5:22<br />
Useless use of constant integer 0 in sink context (line 10)<br />
</td></tr>
<tr align='center'><td align='left'>run/fresh_perl.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
- <tr align='center'><td align='left' rowspan='2'>run/locale.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
- <tr><td colspan='5'>Potential difficulties:<br />
- Redeclaration of symbol $ENV<br />
- at t/spec/run/locale.v5:88<br />
- ------&gt; local $ENV{LC_ALL}⏏; # so it never overrides LC_NUMERIC<br />
- Redeclaration of symbol $ENV<br />
- at t/spec/run/locale.v5:165<br />
- ------&gt; local $ENV{LC_ALL}⏏; # so it never overrides LC_NUMERIC<br />
-Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:81<br />
- in block at t/spec/run/locale.v5:27<br />
-</td></tr>
<tr align='center'><td align='left' rowspan='2'>run/switchx.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;main::runperl called<br />
in block at t/spec/run/switchx.v5:13<br />
@@ -1105,7 +1083,7 @@ at t/spec/io/layers.v5:208<br />
------&gt; open my $fh⏏, "&lt;$layer", $0 or die $!;<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/io/perlio_leaks.v5:22<br />
in method reify at src/gen/m-CORE.setting:7686<br />
@@ -1209,9 +1187,9 @@ at t/spec/re/reg_fold.v5:30<br />
------&gt; my ($invlist_ref, $invmap_ref, ⏏undef, $default)</td></tr>
<tr align='center'><td align='left'>run/switch0.v5</td><td>0</td><td>1</td><td>0</td><td>0</td><td>1</td></tr>
<tr align='center'><td align='left' rowspan='2'>io/bom.v5</td><td>0</td><td>1</td><td>0</td><td>0</td><td>1</td></tr>
- <tr><td colspan='5'>===SORRY!=== Error while compiling tmp30043A.30043<br />
+ <tr><td colspan='5'>===SORRY!=== Error while compiling tmp26042A.26042<br />
Unexpected closing bracket<br />
-at tmp30043A.30043:1<br />
+at tmp26042A.26042:1<br />
------&gt; use v5; ï⏏»¿print 1;<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/cache.v5</td><td>0</td><td>1</td><td>0</td><td>0</td><td>1</td></tr>
@@ -1315,10 +1293,9 @@ No such symbol '&amp;Regexp::DESTROY'<br />
in block at t/spec/io/iprefix.v5:19<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>io/read.v5</td><td>0</td><td>2</td><td>0</td><td>0</td><td>2</td></tr>
- <tr><td colspan='5'>Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:81<br />
- in sub P5open at lib/Perl5/Terms.pm:77<br />
+ <tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
+ in method print at src/gen/m-CORE.setting:1051<br />
+ in sub P5print at lib/Perl5/Terms.pm:996<br />
in block at t/spec/io/read.v5:1<br />
</td></tr>
<tr align='center'><td align='left'>lib/no_load.v5</td><td>0</td><td>2</td><td>0</td><td>0</td><td>2</td></tr>
@@ -1332,9 +1309,7 @@ Variable '*is_utf8' is not declared<br />
at t/spec/op/utftaint.v5:27<br />
------&gt; *is_utf8 ⏏= \&amp;utf8::is_utf8;</td></tr>
<tr align='center'><td align='left' rowspan='2'>run/script.v5</td><td>0</td><td>3</td><td>0</td><td>0</td><td>3</td></tr>
- <tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
- in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:994<br />
+ <tr><td colspan='5'>Can't open temp file.<br />
in block at t/spec/run/script.v5:19<br />
</td></tr>
<tr align='center'><td align='left'>run/switchn.v5</td><td>0</td><td>3</td><td>0</td><td>0</td><td>3</td></tr>
@@ -1368,7 +1343,7 @@ at t/spec/op/attrhand.v5:19<br />
------&gt; open my $fh⏏, "&lt;", \$str;<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/op/filehandle.v5:1<br />
</td></tr>
@@ -1400,7 +1375,7 @@ Undefined subroutine &amp;main::delete called<br />
Redeclaration of symbol $fh<br />
at t/spec/win32/fs.v5:24<br />
------&gt; open my $fh⏏, "&gt;", $tmpfile2<br />
-Failed to create link called 'tmp31127C' on target 'tmp31127B': Failed to link file: no such file or directory<br />
+Failed to create link called 'tmp27119C' on target 'tmp27119B': Failed to link file: no such file or directory<br />
in block at src/gen/m-CORE.setting:14293<br />
in any at /home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:1<br />
in sub link at src/gen/m-CORE.setting:14288<br />
@@ -1467,10 +1442,10 @@ at t/v5/25-syntax-defined-or.v5:8<br />
<tr align='center'><td align='left' rowspan='2'>op/yadayada.v5</td><td>0</td><td>5</td><td>0</td><td>0</td><td>5</td></tr>
<tr><td colspan='5'>Cannot call 'match'; none of these signatures match:<br />
:(Cool:D: Any $target, *%adverbs)<br />
- in sub P5split at lib/Perl5/Terms.pm:1066<br />
- in sub P5split at lib/Perl5/Terms.pm:1057<br />
- in sub P5split at lib/Perl5/Terms.pm:1058<br />
- in sub P5split at lib/Perl5/Terms.pm:1057<br />
+ in sub P5split at lib/Perl5/Terms.pm:1068<br />
+ in sub P5split at lib/Perl5/Terms.pm:1059<br />
+ in sub P5split at lib/Perl5/Terms.pm:1060<br />
+ in sub P5split at lib/Perl5/Terms.pm:1059<br />
in block at t/spec/op/yadayada.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>re/qr.v5</td><td>0</td><td>5</td><td>0</td><td>0</td><td>5</td></tr>
@@ -1489,7 +1464,7 @@ Undefined subroutine &amp;main::tie called<br />
<tr align='center'><td align='left' rowspan='2'>run/switchF1.v5</td><td>0</td><td>5</td><td>0</td><td>0</td><td>5</td></tr>
<tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:994<br />
+ in sub P5print at lib/Perl5/Terms.pm:996<br />
in block at t/spec/run/switchF1.v5:29<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/opcroak.v5</td><td>0</td><td>5</td><td>0</td><td>0</td><td>5</td></tr>
@@ -1499,7 +1474,7 @@ at t/spec/uni/opcroak.v5:21<br />
------&gt; Not enough arguments for main::\x{30cb}/⏏u, "Not enough arguments croak is UTF-8</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/select.v5</td><td>0</td><td>5</td><td>0</td><td>0</td><td>5</td></tr>
<tr><td colspan='5'>No such method 'IO' for invocant of type 'Typeglob'<br />
- in sub P5open at lib/Perl5/Terms.pm:86<br />
+ in sub P5open at lib/Perl5/Terms.pm:87<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/uni/select.v5:1<br />
</td></tr>
@@ -1527,6 +1502,10 @@ at t/spec/op/blocks.v5:127<br />
<tr><td colspan='5'>Undefined subroutine &amp;main::kill called<br />
in block at t/spec/op/kill0.v5:1<br />
</td></tr>
+ <tr align='center'><td align='left' rowspan='2'>comp/multiline.v5</td><td>0</td><td>6</td><td>0</td><td>0</td><td>6</td></tr>
+ <tr><td colspan='5'>Can't open multiline26010: <br />
+ in block at t/spec/comp/multiline.v5:50<br />
+</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/threads-dirh.v5</td><td>0</td><td>6</td><td>0</td><td>0</td><td>6</td></tr>
<tr><td colspan='5'>===SORRY!===<br />
Two terms in a row<br />
@@ -1538,7 +1517,7 @@ at t/spec/op/threads-dirh.v5:123<br />
at t/spec/op/unlink.v5:21<br />
------&gt; open my $fh⏏, "&gt;", $file or die "Can't open $file: $<br />
===SORRY!===<br />
-Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏/home/froggs/dev/v5/t/tmp30679B/aaa' (indicated by ⏏)<br />
+Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏/home/froggs/dev/v5/t/tmp26668B/aaa' (indicated by ⏏)<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/utf8magic.v5</td><td>0</td><td>6</td><td>0</td><td>0</td><td>6</td></tr>
<tr><td colspan='5'>Potential difficulties:<br />
@@ -1590,7 +1569,7 @@ at t/spec/uni/tr_7jis.v5:19<br />
at t/spec/io/perlio_open.v5:28<br />
------&gt; ok((open my $fh⏏, "+&lt;", undef), "open my \$fh, '+&lt;', und<br />
No such method 'IO' for invocant of type 'Any'<br />
- in sub P5open at lib/Perl5/Terms.pm:93<br />
+ in sub P5open at lib/Perl5/Terms.pm:95<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
in block at t/spec/io/perlio_open.v5:20<br />
in method reify at src/gen/m-CORE.setting:7686<br />
@@ -1682,9 +1661,7 @@ at t/spec/uni/readline.v5:53<br />
Redeclaration of symbol $CMD<br />
at t/spec/io/fflush.v5:126<br />
------&gt; open my $CMD⏏, "$cmd |" or die "Can't open pipe to '$<br />
-Too many positional parameters passed; got 2 but expected 1<br />
- in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:994<br />
+open tmp26063B: <br />
in block at t/spec/io/fflush.v5:1<br />
</td></tr>
<tr align='center'><td align='left'>mro/recursion_c3.v5</td><td>0</td><td>8</td><td>0</td><td>0</td><td>8</td></tr>
@@ -1745,7 +1722,7 @@ at t/spec/op/select.v5:20<br />
<tr><td colspan='5'>WARNINGS:<br />
Useless use of constant integer 1 in sink context (line 58)<br />
===SORRY!===<br />
-Error while compiling op bind: QAST::Block with cuid cuid_102_1397601138.3643 has not appeared<br />
+Error while compiling op bind: QAST::Block with cuid cuid_102_1397657713.78692 has not appeared<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>run/dtrace.v5</td><td>0</td><td>9</td><td>0</td><td>0</td><td>9</td></tr>
<tr><td colspan='5'>/bin/sh: 1: -V: not found<br />
@@ -1817,8 +1794,8 @@ Undefined subroutine &amp;main::or called<br />
<tr align='center'><td align='left' rowspan='2'>lib/deprecate.v5</td><td>0</td><td>10</td><td>0</td><td>0</td><td>10</td></tr>
<tr><td colspan='5'>Failed to change the working directory to '/home/froggs/dev/v5/lib/deprecate': Directory does not exist<br />
in sub chdir at src/gen/m-CORE.setting:14210<br />
- in sub P5chdir at lib/Perl5/Terms.pm:395<br />
- in sub P5chdir at lib/Perl5/Terms.pm:395<br />
+ in sub P5chdir at lib/Perl5/Terms.pm:397<br />
+ in sub P5chdir at lib/Perl5/Terms.pm:397<br />
in block at t/spec/lib/deprecate.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>mro/basic_02_c3.v5</td><td>0</td><td>10</td><td>0</td><td>0</td><td>10</td></tr>
@@ -1984,10 +1961,11 @@ at t/spec/re/pat_psycho.v5:107<br />
Redeclaration of symbol $fh<br />
at t/spec/io/crlf.v5:38<br />
------&gt; open my $fh⏏, "&lt;:crlf", \$fcontents;<br />
-Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:86<br />
- in sub P5open at lib/Perl5/Terms.pm:77<br />
+Cannot call 'ok'; none of these signatures match:<br />
+:($cond, Any $desc = { ... })<br />
+ in sub ok at lib/Test.pm:64<br />
+ in sub _ok at /home/froggs/dev/v5/t/test.pl:10<br />
+ in sub ok at /home/froggs/dev/v5/t/test.pl:62<br />
in block at t/spec/io/crlf.v5:16<br />
in method reify at src/gen/m-CORE.setting:7686<br />
in method reify at src/gen/m-CORE.setting:7549<br />
@@ -2015,7 +1993,7 @@ Could not find Win32 in any of: ../lib/Perl5<br />
Cannot find method 'Any'<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/die_exit.v5</td><td>0</td><td>17</td><td>0</td><td>0</td><td>17</td></tr>
- <tr><td colspan='5'>Can't open temp error file tmp30375B: <br />
+ <tr><td colspan='5'>Can't open temp error file tmp26360B: <br />
in block at t/spec/op/die_exit.v5:37<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/glob.v5</td><td>0</td><td>17</td><td>0</td><td>0</td><td>17</td></tr>
@@ -2025,7 +2003,7 @@ at t/spec/op/glob.v5:117<br />
------&gt; &lt;BOL&gt;⏏&lt;EOL&gt;<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/lfs.v5</td><td>0</td><td>17</td><td>0</td><td>0</td><td>17</td></tr>
- <tr><td colspan='5'>Undefined subroutine &amp;main::BIG called<br />
+ <tr><td colspan='5'>open tmp26480C failed: <br />
in block at t/spec/op/lfs.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/caller.v5</td><td>0</td><td>18</td><td>0</td><td>0</td><td>18</td></tr>
@@ -2080,9 +2058,7 @@ at t/spec/op/mkdir.v5:47<br />
------&gt; ok(rmdir⏏);<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>run/cloexec.v5</td><td>0</td><td>22</td><td>0</td><td>0</td><td>22</td></tr>
- <tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
- in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:994<br />
+ <tr><td colspan='5'>open 'tmp26980C': <br />
in sub make_tmp_file at t/spec/run/cloexec.v5:52<br />
in block at t/spec/run/cloexec.v5:1<br />
</td></tr>
@@ -2216,11 +2192,11 @@ at t/spec/op/qr.v5:73<br />
in block at t/spec/op/vec.v5:9<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>re/reg_eval_scope.v5</td><td>0</td><td>34</td><td>0</td><td>0</td><td>34</td></tr>
- <tr><td colspan='5'>===SORRY!=== Error while compiling tmp30849A.30849<br />
+ <tr><td colspan='5'>===SORRY!=== Error while compiling tmp26869A.26869<br />
Lexical symbol '$x' is already bound to an outer symbol;<br />
the implicit outer binding must be rewritten as OUTER::&lt;$x&gt;<br />
before you can unambiguously declare a new '$x' in this scope<br />
-at tmp30849A.30849:2<br />
+at tmp26869A.26869:2<br />
------&gt; print "a" =~ /(?{ print $x; my $x ⏏= 8; print $x; my $y })a/;</td></tr>
<tr align='center'><td align='left' rowspan='2'>io/tell.v5</td><td>0</td><td>35</td><td>0</td><td>0</td><td>35</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;main::TST called<br />
@@ -2293,9 +2269,7 @@ Undefined subroutine &amp;main::use_ok called<br />
<tr align='center'><td align='left' rowspan='2'>op/sysio.v5</td><td>0</td><td>48</td><td>0</td><td>0</td><td>48</td></tr>
<tr><td colspan='5'>WARNINGS:<br />
Useless use of constant integer 1 in sink context (line 239)<br />
-Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:81<br />
+sysio.t: cannot find myself: <br />
in block at t/spec/op/sysio.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/parser.v5</td><td>0</td><td>48</td><td>0</td><td>0</td><td>48</td></tr>
@@ -2457,8 +2431,8 @@ MVMArray: Index out of bounds<br />
------&gt; my $pid = open my $fh⏏, "-|";<br />
No such method 'substr' for invocant of type 'Any'<br />
in sub substr-rw at src/gen/m-CORE.setting:6866<br />
- in sub P5substr at lib/Perl5/Terms.pm:1151<br />
- in sub P5substr at lib/Perl5/Terms.pm:1144<br />
+ in sub P5substr at lib/Perl5/Terms.pm:1153<br />
+ in sub P5substr at lib/Perl5/Terms.pm:1146<br />
in sub fooinc at t/spec/op/inccode.v5:38<br />
in block at t/spec/op/inccode.v5:1<br />
</td></tr>
@@ -2468,10 +2442,9 @@ Unrecognized backslash sequence: '\L'<br />
at t/spec/op/oct.v5:65<br />
------&gt; y $format = ($string =~ /([bx])/i) ? "0\⏏L$1%\U$1": '0%o';</td></tr>
<tr align='center'><td align='left' rowspan='2'>comp/use.v5</td><td>0</td><td>84</td><td>0</td><td>0</td><td>84</td></tr>
- <tr><td colspan='5'>===SORRY!=== Error while compiling t/spec/comp/use.v5<br />
-Two terms in a row<br />
-at t/spec/comp/use.v5:146<br />
-------&gt; is $@, "", ⏏'explicit "no strict" overrides later ve</td></tr>
+ <tr><td colspan='5'>===SORRY!===<br />
+Could not find test_use in any of: ../lib, lib<br />
+</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/bless.v5</td><td>0</td><td>84</td><td>0</td><td>0</td><td>84</td></tr>
<tr><td colspan='5'>===SORRY!=== Error while compiling t/spec/uni/bless.v5<br />
Two terms in a row<br />
@@ -2758,9 +2731,7 @@ Unrecognized Perl 5 regex backslash sequence<br />
at t/spec/re/pat_rt_report.v5:96<br />
------&gt; ok("École" =~ /^\⏏C\C(.)/ &amp;&amp; $1 eq 'c', $message);</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/read.v5</td><td>0</td><td>2564</td><td>0</td><td>0</td><td>2564</td></tr>
- <tr><td colspan='5'>Failed to open file: no such file or directory<br />
- in method open at src/gen/m-CORE.setting:13667<br />
- in sub P5open at lib/Perl5/Terms.pm:81<br />
+ <tr><td colspan='5'>Undefined subroutine &amp;main::seek called<br />
in block at t/spec/op/read.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>comp/utf.v5</td><td>0</td><td>4016</td><td>0</td><td>0</td><td>4016</td></tr>
View
54 lib/Perl5/Grammar.nqp
@@ -2034,31 +2034,35 @@ grammar Perl5::Grammar is HLL::Grammar does STD5 {
# <.getsig>
# ] || <.panic: "Malformed routine">
# }
+ # perl -E 'say prototype "CORE::seek"'
my %prototype := nqp::hash(
- 'chr', '$',
- 'chdir', '$',
- 'close', '*',
- 'each', '$',
- 'int', '$',
- 'keys', '$',
- 'ord', '$',
- 'ref', '$',
- 'time', '',
- 'not', '@',
- 'unlink', '@',
- 'unpack', '$@',
- 'map', '$@',
- 'grep', '$@',
- 'open', '*@',
- 'pos', '$',
- 'print', '*@',
- 'rand', '$',
- 'say', '*@',
- 'sort', '$@',
- 'splice', '@',
- 'split', '$$$',
- 'substr', '$$$$',
- 'values', '$',
+ 'binmode', '*;$',
+ 'chr', '$',
+ 'chdir', '$',
+ 'close', '*',
+ 'each', '$',
+ 'int', '$',
+ 'keys', '$',
+ 'ord', '$',
+ 'ref', '$',
+ 'time', '',
+ 'not', '@',
+ 'unlink', '@',
+ 'unpack', '$@',
+ 'map', '$@',
+ 'grep', '$@',
+ 'open', '*@',
+ 'pos', '$',
+ 'print', '*@',
+ 'rand', '$',
+ 'read', '*\\$$;$',
+ 'say', '*@',
+ 'seek', '*$$',
+ 'sort', '$@',
+ 'splice', '@',
+ 'split', '$$$',
+ 'substr', '$$$$',
+ 'values', '$',
);
rule routine_def {
:my $*IN_DECL := 'sub';
@@ -3016,7 +3020,7 @@ grammar Perl5::Grammar is HLL::Grammar does STD5 {
|| <?{ $*ARGUMENT_HAVE }> <EXPR('h=')> { $*ARGUMENT_HAVE := $*ARGUMENT_HAVE + 1 }
|| <EXPR('q=')> { $*ARGUMENT_HAVE := $*ARGUMENT_HAVE + 1 }
]
- || <?{ $*PROTOTYPE eq ';' }>
+ #~ || <?{ $*PROTOTYPE eq ';' }>
#~ | <?>
]
}
Please sign in to comment.
Something went wrong with that request. Please try again.