Skip Menu |

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

Report information
The Basics
Id: 16472
Status: new
Priority: 0/
Queue: Perl6-Form

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

Bug Information
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.