# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36313]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36313
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
).
Piotr Fusik
gt; + $x = 1 for $[ = 0;
gt; + pass('optimized assignment to $[ used to segfault in scalar
context');
gt; + if (($[) = 0) { $x = 1 }
gt; + pass('optimized assignment to $[ used to segfault in list
context');
gt;
gt; Looks like the descriptions of contexts are swapped (i.e.
quot;forquot;
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36336]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36336
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
gt; gt; I guess we can then remove it from blead (like $*).
gt;
gt; Gah. I was hoping you'd come up for a patch which I could merge into
maint :-(
gt; Laziness doesn't always work. I guess it goes onto my todo...
gt;
gt; Yes, culling it is the best solution.
Done as change #24908.
Oh, no!
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36359]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36359
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
This is a small optimization of pp_pow.
The following:
use Benchmark;
timethis(3, 'my $x;
for my $base (-8 .. 8) {
for my $power (0 .. 10) {
$x = $base ** $power;
$x = $base ** $power;
$x = $base ** $power;
$x = $base **
Oops, looks like lame web mail interface ate some whitespace. Here's the same
patch as an attachment.
Piotr
patch-fast-pow
Description: Binary data
This patch fixes the following:
perl -le print 1x1e12 ne '' ? 'ok' : 'not ok'
not ok
perl -le print 1x(1x12) ne '' ? 'ok' : 'not ok'
not ok
perl -le print +(1)x1e12
(no output)
perl -le print +(1)x(1x12)
(no output)
diff -ruN perl-current/pp.c perl-patched/pp.c
--- perl-current/pp.c Wed Jun
With your patch, I get :
$ ./perl -e 'print - x undef'
Segmentation fault
The problem coming from the line :
count = SvIVX(sv);
when sv is PL_sv_undef.
Moreover you shouldn't be setting count = IV_MAX in all cases, I think.
So, not applied as is.
I'm just a beginner, so I don't know
Due to recent codes changes (cleanup, variable declaration moved) in this
part, your patch doesn't apply cleanly. Can you resubmit one against a
more recent bleadperl ?
No problem.
patch-fast-pow
Description: Binary data
Here are some cosmetic changes of perlfunc:
1. Documented no-operand versions of chdir, eval, exit, gmtime.
2. Normalized Cfoo() to foo().
3. Normalized $foo to C$foo.
4. Changed =item import to =item import (LIST).
Bye,
Piotr
perlfunc.patch.gz
Description: GNU Zip compressed data
in which CTYPE is [A-Z] not uppercase for [a-z], and [a-z]
not lowercase for [A-Z] ?
http://msdn.microsoft.com/netframework/default.aspx?pull=/library/en-us/
dndotnet/html/stringsinnet20.asp#stringsinnet20_topic5
-sequence of commands indicated by BLOCK. When modified by a loop
+sequence of commands indicated by BLOCK. When modified by the
Cwhile loop
Which isn't true. do handles both while and until. I think the
original
wording should hold. Possibly perlsyn clarifies what a loop
modifier is.
Didn't we conclude it would be better to give Pod::Html the same foo()
recognition magic that Pod::Man has and not have to put C around
every
function?
ActivePerl HTMLs have links to functions even where there are no
surrounding C.
There is a small drawback, however: element(s) appears as a
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36594]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36594
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36621]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36621
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36622]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36622
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
[...] I wanted to clarify that do {}
isn't special for for/foreach modifiers
(they are loop modifiers, aren't they?).
Good point. I guess they are.
--- perl-current/pod/perlfunc.pod Sun Jul 24 11:30:36 2005
+++ perl-patched/pod/perlfunc.pod Sun Jul 24 11:38:16 2005
@@ -1220,8 +1220,8
I googled definetely and it seems to be widely used.
But I found this:
http://wikitravel.org/en/Wikitravel:List_of_common_misspellings
--- perl-current/pod/perlfunc.pod Sun Jul 24 11:30:36 2005
+++ perl-patched/pod/perlfunc.pod Sun Jul 24 12:26:12 2005
@@ -3707,7 +3707,7 @@
platforms are using
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36674]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36674
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36672]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36672
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36676]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36676
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36673]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36673
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36675]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36675
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
I have doubts about the following changes:
Note that the $year element is Inot simply the last two digits of
-the year. If you assume it is, then you create non-Y2K-compliant
+the year. If you assume it is and then you create non-Y2K-compliant
programs--and you wouldn't want to do that,
Note that a block by itself is semantically identical to a loop
-that executes once. Thus Clast can be used to effect an early
+that executes once. Thus Clast can be used to affect an early
exit out of such a block.
effect is a noun. affect is a verb so I think this change is correct.
What does Windows ActivePerl say for
$ perl -we \'printf %0.f\\n, -0.1\'
-0
C:\perl -we printf '%0.f', -0.1
-0
C:\perl -we printf '%0.f', -0.0
0
I see three problems with this function:
1. [#36674] -undef results in -0.0 rather than the expected 0.
This is probably easy to fix, but I don't know if undef is the only value for
which (!SvIOKp(sv) !SvNOKp(sv) !SvPOKp(sv)).
2. [#36675] Strings starting with '-' or '+' are treaded as
The first one looks wrong to me:
# perl -wle \'$f = -fo; print -$f\'
+fo
# perl -wle \'$f = -NaN; print -$f\'
+NaN
Ugh. You learn to find some dusted, obscure Perl corner every day...
This behavior is clearly documented in perlop:
if the string starts with a plus or minus, a string
I've extracted a list of words from all the PODs and spell-checked it.
The result is in the attachment.
typos.patch
Description: Binary data
This time I spell-checked PODs embedded in *.p[lm] files.
See the attachment.
typos2.patch.gz
Description: GNU Zip compressed data
# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36766]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36766
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help
Anyone else for putting all the documentation on some kind of heavily
modified wiki?
I was going to write that we need a PodWiki, but it appears that this thing
already exists!
So I think this is a great idea. At least we should give it a try.
Hello,
Some of my corrections still haven't been applied.
Attached a patch against 25265.
Bye,
Piotr
typos3.patch
Description: Binary data
A A text (ASCII) string, will be space padded.
-Z A null terminated (ASCIZ) string, will be null padded.
+Z A null terminated (ASCIIZ) string, will be null padded.
b A bit string (ascending bit order inside each byte, like vec()).
That isn't a typo.The change should
(If somebody can point me at a user-visible way
in Perl of extracting the sign from an NV other than by stringifying
it, I'd love to hear about it.)
On Windows:
perl -le print unpack'H*',pack'F',-0.0
0080
On big-endians it will probably be:
8000
On 6 Aug, Steven P. Schubiger wrote:
On 6 Aug, Piotr Fusik wrote:
A A text (ASCII) string, will be space padded.
-Z A null terminated (ASCIZ) string, will be null padded.
+Z A null terminated (ASCIIZ) string, will be null padded.
b A bit string (ascending bit
How about adding some tests for subnormals?
Do you think it makes any sense?
+A program that compiles and usually executes L/Perl scripts. Or is
+that Lperlfaq1/Is it a Perl program or a Perl script?|Perl programs?
s/is that/are they/, I guess, but I may be wrong...
s/usually //
Leaving aside alternate backends (-MO=...) and the possibility of perl
lying over and dying during the compile, there\'s still perl -c.
-c is check syntax and not compile.
And there are also -h and -v, but I wouldn't take serious writing something
like perl can be used for checking syntax or
Hello,
I thought that 32 is simply an empty string, but it appears to be something
different:
perl -le print '' eq (32)
1
perl -le print 'a'|''
a
perl -le print 'a'|(32)
0
Can someone explain me this?
Piotr
The following program invokes beta once instead of twice.
Extremely non-intuitive.
Really? It is effectively:
$c = beta ($a) if ( ! defined $c ); # the if condition is true
$c = beta ($a) if ( ! defined $c ); # the if condition is false
1) seems like it shouldn\'t compile.
Why not?
2) $c is
43 matches
Mail list logo