From 60c0a6570224333f169ce635d2d80c6f4b985a27 Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Mon, 24 Oct 2016 11:31:38 +0200 Subject: [PATCH] fix typos --- Changelog | 4 ++++ Org.pm | 44 ++++++++++++++++++++++---------------------- leo | 10 +++++----- 3 files changed, 31 insertions(+), 27 deletions(-) diff --git a/Changelog b/Changelog index e6d55c5..d817f5a 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,7 @@ +1.45: + +fixed rt.cpan.org#118472. + 1.44: Fixed error handling, added sample code for module usage. diff --git a/Org.pm b/Org.pm index 7b39ba9..8f699a7 100644 --- a/Org.pm +++ b/Org.pm @@ -7,7 +7,7 @@ # or service marks of their respective holders. package WWW::Dict::Leo::Org; -$WWW::Dict::Leo::Org::VERSION = "1.44"; +$WWW::Dict::Leo::Org::VERSION = "1.45"; use strict; use warnings; @@ -25,24 +25,24 @@ sub new { my $type = ref( $class ) || $class; my %settings = ( - "-Host" => "pda.leo.org", - "-Port" => 80, - "-UserAgent" => "Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0", - "-Proxy" => "", - "-ProxyUser" => "", - "-ProxyPass" => "", - "-Debug" => 0, - "-SpellTolerance" => "standard", # on, off - "-Morphology" => "standard", # none, forcedAll - "-CharTolerance" => "relaxed", # fuzzy, exact - "-Language" => "en", # en2de, de2fr, fr2de, de2es, es2de - "data" => {}, # the results - "section" => [], - "title" => "", - "segments" => [], - "Maxsize" => 0, - "Linecount" => 0, - ); + "-Host" => "pda.leo.org", + "-Port" => 80, + "-UserAgent" => "Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0", + "-Proxy" => "", + "-ProxyUser" => "", + "-ProxyPass" => "", + "-Debug" => 0, + "-SpellTolerance" => "standard", # on, off + "-Morphology" => "standard", # none, forcedAll + "-CharTolerance" => "relaxed", # fuzzy, exact + "-Language" => "en", # en2de, de2fr, fr2de, de2es, es2de + "data" => {}, # the results + "section" => [], + "title" => "", + "segments" => [], + "Maxsize" => 0, + "Linecount" => 0, + ); foreach my $key (keys %param) { $settings{$key} = $param{$key}; # override defaults @@ -428,7 +428,7 @@ Possible values: fuzzy, exact, relaxed. Translation direction. Please note that dict.leo.org always translates either to or from german. -The following languages are supported: english, polish, spanish, portugese +The following languages are supported: english, polish, spanish, portuguese russian and chinese. You can specify only the country code, or append B in order to @@ -446,7 +446,7 @@ Valid country codes: en english es spanish ru russian - pt portugese + pt portuguese pl polish ch chinese @@ -545,6 +545,6 @@ Please don't forget to add debugging output! =head1 VERSION -1.44 + 1.45 =cut diff --git a/leo b/leo index c82116a..3e81ad9 100755 --- a/leo +++ b/leo @@ -34,7 +34,7 @@ my $default_c = "\033[0m"; # reset default terminal color my $bold_c = "\033[0;34m"; # blue color my $copy_c = "\033[0;35m"; # copyright message color (green) -my $version = "1.42"; +my $version = "1.43"; my $config = $ENV{HOME} . "/.leo"; my $cache = $ENV{HOME} . "/.leo-CACHE.db"; @@ -346,7 +346,7 @@ Supported s are: en english es spanish ru russian -pt portugese +pt portuguese pl polish ch chinese @@ -433,7 +433,7 @@ Default: B. Translation direction. Please note that dict.leo.org always translates either to or from german. -The following languages are supported: english, polish, spanish, portugese +The following languages are supported: english, polish, spanish, portuguese russian and chinese. You can specify only the country code, or append B in order to @@ -451,7 +451,7 @@ Valid country codes: en english es spanish ru russian -pt portugese +pt portuguese pl polish ch chinese @@ -669,6 +669,6 @@ browser, what is not prohibited. At least not today. =head1 VERSION -This is the manpage for B version B<1.42>. +This is the manpage for B version B<1.43>. =cut