This queue is for tickets about the Perl6-Form CPAN distribution.

Report information
The Basics
Id:
16472
Status:
new
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
jfenal [...] gmail.com
Cc:
AdminCc:

BugTracker
Severity:
Wishlist
Broken in:
(no value)
Fixed in:
(no value)



Subject: French thousand marker (space) not supported on integer
Using Perl6::Form 0.04, perl-5.8.7 (Mandriva 2006.0). The following code ends with warnings (use of undef'ined values) at run-time: ----8<---- #!/usr/bin/perl -w use strict; # Cette table de correspondance est pratique, mais semble trop lourde my %lookup; for my $i (1..100000) { $lookup{int(rand(65536))}++; } # Regardons donc comment de mémoire est utilisée... use Devel::Size qw( size total_size ); use Perl6::Form; my $memoire_hachage = size(\%lookup); # Supplément dû au stockage uniquement my $memoire_totale = total_size(\%lookup); # Suppléments plus données my $memoire_donnees = $memoire_totale - $memoire_hachage; # Données uniquement print form( 'hachage uniquement : {>>> >>> >>>} octets', $memoire_hachage, 'données uniquement : {>>> >>> >>>} octets', $memoire_donnees, '=========================================', 'total : {>>> >>> >>>} octets', $memoire_totale, 'hachage uniquement : {>>> >>> >>>,} octets', $memoire_hachage, 'données uniquement : {>>> >>> >>>,} octets', $memoire_donnees, '=========================================', 'total : {>>> >>> >>>,} octets', $memoire_totale, ); ----8<---- Only the second print-out will succeed, although printing a superfluous ",0". This exemple is taken from what should be the french translation of PBP. Best regards, J.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.