diff options
| -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', ); |