Fix a typo in WSClient which prevented it from adding/editing assets.

Make the whitespace test give some context to its failures.
Fix a buglet in the label test.

docs/changelog/7.x.x.txt

@@ -18,4 +18,5 @@
  - fix: User/Group problem
  - fix: Edit LDAP Connection
  - fix: SQL Report w/ pagination and nested queries
+ - fix: Unable to add Web Services Client
 

lib/WebGUI/Asset/Wobject/WSClient.pm

@@ -118,7 +118,7 @@ sub getEditForm {
       -name      => 'templateId',
       -value     => $self->getValue('templateId'),
       -namespace => "WSClient",
-      -label => WebG$i18n->get(72),
+      -label => $i18n->get(72),
       -hoverHelp => $i18n->get('72 description'),
    );
    $tabform->getTab("display")->yesNo (

t/Whitespace.t

@@ -64,7 +64,10 @@ sub checkContent {
 	foreach my $line (@content) {
 		chomp $line;
 		my $isPodWord = ($line =~ m/^=/);
-		return 1 if ($isPodWord && !$podAllowed);
+		if ($isPodWord && !$podAllowed) {
+			diag $line;
+			return 1;
+		}
 		# POD is allowed on next line if current line is empty
 		$podAllowed = ($line eq '');
 	}

t/i18n/label.t

@@ -227,7 +227,7 @@ sub getHelpLabels {
 
 sub getHelpVariables {
 	my ($variables) = @_; ##An arrayref of variables, possibly with nested variables in loops
-	my $tmplVars;
+	my $tmplVars = [];
 	foreach my $var ( @{ $variables } ) {
 		if ( exists $var->{variables} ) {
 			push @{ $tmplVars }, @{ getHelpVariables($var->{variables}) };