diff options
author | dakkar <dakkar@thenautilus.net> | 2010-11-23 23:08:35 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2010-11-23 23:08:35 +0000 |
commit | e5711729debb84f1675fa8362db56f1e16f5ddfd (patch) | |
tree | 51bc67440fd41e8279bd275ef01f2cbae167a890 /script/qr-color.pl | |
parent | avoid colour runs (diff) | |
download | qr-builder-e5711729debb84f1675fa8362db56f1e16f5ddfd.tar.gz qr-builder-e5711729debb84f1675fa8362db56f1e16f5ddfd.tar.bz2 qr-builder-e5711729debb84f1675fa8362db56f1e16f5ddfd.zip |
use the real data
Diffstat (limited to 'script/qr-color.pl')
-rw-r--r-- | script/qr-color.pl | 3 |
1 files changed, 1 insertions, 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', ); |