Corrected new argument checking.
authorSimon Howkins <simonh@symbian.org>
Fri, 06 Nov 2009 15:47:33 +0000
changeset 103 b39734cad470
parent 102 5407bb741e43
child 104 b3c9be6eba35
Corrected new argument checking.
releaseAutomation/fcls4releasenotes.pl
--- a/releaseAutomation/fcls4releasenotes.pl	Fri Nov 06 15:21:20 2009 +0000
+++ b/releaseAutomation/fcls4releasenotes.pl	Fri Nov 06 15:47:33 2009 +0000
@@ -110,7 +110,7 @@
 
 foreach my $pdkCount (0 .. $#PDK)
 {
-	if (scalar (grep {defined} keys %{$PDK[$pdkCount]}) == 0)
+	if (0 == scalar (grep { defined $_ } values %{$PDK[$pdkCount]}))
 	{
 		print "No data provided to identify PDK", $pdkCount + 1, "\n";
 		helpme();
@@ -238,11 +238,6 @@
 	$pdk_path2 = $pdkloc2;
 }
 
-#
-# If we reach this point, this means that we have the right numbers of arguments passed to the script.
-#
-print "\nWe are on the right path!!!!\n";
-
 print "pdk_path1=$pdk_path1\n";
 print "pdk_complete_name1=$pdk_complete_name1\n";
 print "pdk_complete_path1=$pdk_complete_path1\n";