Commits

Anonymous committed 711e267

Got the ePerl WML code to compile with the -w flag.

Comments (0)

Files changed (2)

-WML_FLAGS += --passoption=2,-X3074 --passoption=3,-I../lib/ -I../lib/ -DROOT~.
+WML_FLAGS += --passoption=2,-X3074 --passoption=3,-I../lib/ --passoption=3,-w -I../lib/ -DROOT~.
 
 # t2 macros
 
 
 my $render_leading_path_component = sub {
     my $component = shift;
+    my $title = $component->title();
+    my $title_attr = defined($title) ? " title=\"$title\"" : "";
     return "<a href=\"" . CGI::escapeHTML($component->direct_url()) .
-    "\" title=\"" . $component->title() . "\">" .
-    $component->label() . "</a>";
+        "\"$title_attr>" .
+        $component->label() . "</a>";
 };
 
 use vars qw($leading_path_string);