Fix warnings and remove debug prints

ufal · Jun 29, 2015 · e87fe93 · e87fe93
1 parent bc10ba8
commit e87fe93
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/PMLTQ/Server/Controller/Auth.pm b/lib/PMLTQ/Server/Controller/Auth.pm
@@ -54,8 +54,8 @@ sub sign_in_shibboleth {
     return $c->redirect_to($redirect . '#no-metadata') unless $persistent_token;
 
     my $email = first {defined} split(/;/, $headers->header('mail') || '');
-    my $first_name = $headers->header('givenName');
-    my $last_name = $headers->header('sn');
+    my $first_name = $headers->header('givenName') || '';
+    my $last_name = $headers->header('sn') || '';
     my $name = "$first_name $last_name";
     $name =~ s/^\s+|\s+$//g;
 

diff --git a/lib/PMLTQ/Server/Controller/Treebank.pm b/lib/PMLTQ/Server/Controller/Treebank.pm
@@ -137,7 +137,7 @@ sub suggest {
 
   my $url = Mojo::URL->new($c->config->{nodes_to_query_service});
   $url->query(p => join('|', @paths), ($input->{vars} ? (r => $input->{vars}) : ()));
-  say STDERR $url->to_string;
+  # say STDERR $url->to_string;
   $c->app->ua->get($url => sub {
       my ($ua, $tx) = @_;
       if (my $res = $tx->success) {