diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index bc2e318..e247c1b 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -284,7 +284,7 @@
 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/\1/;
 	my $plat = "$ModulePlatforms{$key}";
 	$plat = ''
-	  if $IGNORE_PLATFORM_ANNOTATION;
+	  if ($plat eq $IGNORE_PLATFORM_ANNOTATION);
 	if (!$first) {
 	    $allthesame = 0
 	      if ($prevplat ne $plat);