[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