System error

error:

Error during compilation of /home/martink/www/htdocs/snowflakes/autohandler:
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 152.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 126.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 240.
"my" variable $posters masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 23.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 67.
syntax error at /etc/httpd/mason/mk/obj/2535643978/public/snowflakes/autohandler.obj line 1, near ")"
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 77, at end of line
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 77, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 139, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 112, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 228, near "}"
(Might be a runaway multi-line '' string starting on line 227)
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 241, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 61, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 68, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 120, near "}"
/home/martink/www/htdocs/snowflakes/autohandler has too many errors.

context:

1:
2:	<%init>
3:
4:	my $ip = $ENV{REMOTE_ADDR};
5:	if($ip =~ /^35[.]192[.]61) {
...
19:	</%init>
20:
21:	<%method posters>
22:	<%perl>
23:	my $posters = {
24:	1=>{caption=>"Daytime snowflakes", file=>"snowflakes.10000.01", faa=>"snowflake-simulation-martin-krzywinski.html"},
25:	2=>{caption=>"Nighttime snowflakes", file=>"snowflakes.10000.02", faa=>"1-snowflake-simulation-martin-krzywinski.html"},
26:
27:	3=>{caption=>"16 boy snowflakes", file=>"snowflakes.boys", faa=>"8-snowflake-simulation-martin-krzywinski.html"},
...
57:	"mb"=>{caption=>"The effect of the `\\mu` parameter on the shape of a snowflake.", file=>"snowflakes.m.black", faa=>"21-snowflake-simulation-martin-krzywinski.html"},
58:	};
59:	return $posters;
60:	</%perl>
61:	</%method>
62:
63:	<%method leadingquote>
64:	<%perl>
65:	my @pg = ("The snowflake was born on a cold, winter's day far up in the sky, many miles above earth.",
66:	"She was all stars and arrows, squares and triangles of ice and light, like a church window; she was like a flower with many shining petals; she was like lace and she was like a diamond. But best of all, she was herself and unlike any of her kind.",
67:	"Now she was round and as pure as the morning light, crystal clear and like a tiny silver mirror she was able to catch and give back every colour in the world about her.");
68:	my ($quote,$credit) = rand() < 1/(@pg+1) ? ("Art is scence in love.","E.F. Weisslitz") : ($pg[rand(@pg)],"Paul Gallico, <i>Snowflake</i>");
69:	</%perl>
70:	<div class=vmar3>
71:	<p class=quote style="width:400px;">
72:	<% $quote %><br><span class=norm>— <% $credit %></span>
73:	</p>
74:	</div>
75:	</%method>
76:
77:	<& /note.mhtml, key=>"snowflakes" &>
78:
79:	<h1>It's Snowing in my CPU — a Snowflake catalogue</h1>
80:
81:	<& SELF:leadingquote &>
...
108:	% if ($text) {
109:	&l<%$prefix%>quo;<% $text %>&r<%$prefix%>quo;
110:	% }
111:	<%args>
112:	$text=>undef
113:	$double=>undef
114:	</%args>
115:	</%method>
116:
117:	<%method alt>
118:	% return "Gravner-Griffeath Snowflake Simulation by Martin Krzywinski and Jake Lever";
119:	</%method>
120:
121:	<%method masthead>
122:	% my $n = 7;
123:	% my @codes = (sort { rand() <=> rand() } $m->comp("oddities.mhtml:oddflakes"))[0..$n-1];
124:	% my @idx = map { $cache->{by}{code}{$_} } @codes;
125:	% my @flakes = map { $cache->{flakes}[$_] } @idx;
126:	<div class=masthead>
127:
128:	<p>Go ahead, meet some snowflakes.</p>
129:	<div class=vmar4>
130:	% for my $flake (@flakes) {
...
135:	<br clear=both>
136:	</div>
137:	<%args>
138:	$cache
139:	</%args>
140:	</%method>
141:
142:	<%method drawflake>
143:	% return if ! $flake && ! $blank;
...
148:	% return;
149:	% }
150:	% my $arenh = $flake->{code} eq "autqzcws";
151:	% $label = "Arenh Jerrus\nof Bosmen" if $arenh && defined $label;
152:	% my $dir = $transparent ? "flakes.transparent" : "flakes";
153:	% $dir .= ".thumb" if $width <= 170;
154:	% my $file = sprintf("%s/snowflake-%s", $dir,$code);
155:	<div class=<% $class %> style="width:<% $width %>px;">
156:	% if($link) {
...
224:	% } else {
225:	<& SELF:image, file=>"img/$p->{file}.png", width=>$width, caption=>$caption, float=>$float, style=>$style\|\|"margin-right:5px;", zoom=>1, alt=>$m->scomp("SELF:alt") &>
226:	% }
227:	<%args>
228:	$link => undef
229:	$i => undef
230:	$width => undef
231:	$style => undef
232:	</%args>
...
236:	inherit=>"autohandler.project"
237:	</%flags>
238:

code stack:

/usr/local/share/perl5/5.32/HTML/Mason/Interp.pm:450
/usr/local/share/perl5/5.32/HTML/Mason/Interp.pm:773
/usr/local/share/perl5/5.32/HTML/Mason/Component.pm:333
/usr/local/share/perl5/5.32/HTML/Mason/Request.pm:440

raw error

Error during compilation of /home/martink/www/htdocs/snowflakes/autohandler:
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 152.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 126.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 240.
"my" variable $posters masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 23.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 67.
syntax error at /etc/httpd/mason/mk/obj/2535643978/public/snowflakes/autohandler.obj line 1, near ")"
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 77, at end of line
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 77, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 139, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 112, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 228, near "}"
  (Might be a runaway multi-line '' string starting on line 227)
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 241, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 61, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 68, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 120, near "}"
/home/martink/www/htdocs/snowflakes/autohandler has too many errors.


Trace begun at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 851
HTML::Mason::Interp::_compilation_error('HTML::Mason::Interp=HASH(0x7f4554167000)', '/home/martink/www/htdocs/snowflakes/autohandler', 'HTML::Mason::Exception::Compilation=HASH(0x7f456edeb410)') called at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 450
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0x7f4554167000)', '/snowflakes/autohandler') called at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 773
HTML::Mason::Interp::find_comp_upwards('HTML::Mason::Interp=HASH(0x7f4554167000)', '/snowflakes', 'autohandler') called at /usr/local/share/perl5/5.32/HTML/Mason/Component.pm line 333
HTML::Mason::Component::parent('HTML::Mason::Component::FileBased=HASH(0x7f4584eaa0c8)') called at /usr/local/share/perl5/5.32/HTML/Mason/Request.pm line 440
eval {...} at /usr/local/share/perl5/5.32/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f456ee58600)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f456ee58600)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f4554060400)', 'Apache2::RequestRec=SCALAR(0x7f4584919578)') called at (eval 25) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f4584919578)') called at -e line 0
eval {...} at -e line 0