you guessed it: fix more undefined value warnings

Use of uninitialized value in substitution iterator at cgi-bin/LJ/Lang.pm line 617.

Use of uninitialized value in subtraction (-) at cgi-bin/DW/Controller/Tools.pm line 342.

Author: kareila

cgi-bin/DW/Controller/ChangeEmail.pm

@@ -193,7 +193,7 @@ sub changeemail_handler {
                                 username => $u->display_username,
                                 email    => $u->email_raw,
                                 sitename => $LJ::SITENAME,
-                                sitelink => $LJ::SITEROOT,
+                                siteroot => $LJ::SITEROOT,
                                 conflink => "$LJ::SITEROOT/confirm/$aa->{'aaid'}.$aa->{'authcode'}"
                             }
                         ),

cgi-bin/DW/Controller/Tools.pm

@@ -339,7 +339,7 @@ sub emailmanage_handler {
         : $lastdate_email;
 
     # current address was set more, than 6 months ago?
-    my $six_month_case = time() - str2time($lastdate) > 182 * 24 * 3600;    # half year
+    my $six_month_case = time() - ( str2time($lastdate) // 0 ) > 182 * 24 * 3600;    # half year
 
     my @deleted;
     if ( $r->did_post && $u->{'status'} eq 'A' ) {