Add missing "use strict; user warnings" to WellWell::Compose::Compone…

…nt::Zoom. Fix wrong variables in WellWell::Compose::Component::Zoom.
interchange · Oct 25, 2010 · d2e102b · d2e102b
1 parent 3e1abf7
commit d2e102b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git 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});