From e5711729debb84f1675fa8362db56f1e16f5ddfd Mon Sep 17 00:00:00 2001 From: dakkar Date: Tue, 23 Nov 2010 23:08:35 +0000 Subject: use the real data --- script/qr-color.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/script/qr-color.pl b/script/qr-color.pl index 0f779a9..35f22dd 100644 --- a/script/qr-color.pl +++ b/script/qr-color.pl @@ -10,10 +10,9 @@ use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($INFO); my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;'; -$data = 'x'; my $qr=Text::QRCode->new( - level=>'L', + level=>'H', mode=>'8-bit', ); -- cgit v1.2.3