[wellwell-devel] [wellwell/zoom] Add missing "use strict; user warnings" to WellWell::Compose::Component::Zoom.
Stefan Hornburg
wellwell-devel at rt.icdevgroup.org
Mon Oct 25 06:18:25 UTC 2010
commit d2e102bcda6b158cac5100bc40556f2e0c224263
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date: Mon Oct 25 08:16:50 2010 +0200
Add missing "use strict; user warnings" to WellWell::Compose::Component::Zoom.
Fix wrong variables in WellWell::Compose::Component::Zoom.
lib/WellWell/Compose/Component/Zoom.pm | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
---
diff --git a/lib/WellWell/Compose/Component/Zoom.pm b/lib/WellWell/Compose/Component/Zoom.pm
index 179329b..69370d0 100644
--- a/lib/WellWell/Compose/Component/Zoom.pm
+++ b/lib/WellWell/Compose/Component/Zoom.pm
@@ -19,6 +19,9 @@
package WellWell::Compose::Component::Zoom;
+use strict;
+use warnings;
+
use Template::Zoom;
use Template::Zoom::Specification::XML;
use Template::Zoom::HTML;
@@ -41,7 +44,7 @@ sub process {
$xml_spec = new Template::Zoom::Specification::XML;
unless ($spec = $xml_spec->parse_file($self->{specification})) {
- die "$0: error parsing $xml_file: " . $xml_spec->error() . "\n";
+ die "$0: error parsing $self->{specification}: " . $xml_spec->error() . "\n";
}
$html_object = new Template::Zoom::HTML;
@@ -50,7 +53,7 @@ sub process {
for my $list_object ($html_object->lists()) {
# seed and check input
- $list_object->input(\%input);
+ $list_object->input($attributes);
}
$zoom = new Template::Zoom ($html_object, $self->{dbh});
More information about the wellwell-devel
mailing list