# HG changeset patch # User Simon Howkins # Date 1257522453 0 # Node ID b39734cad470e50287095db2a9045563b388d4b3 # Parent 5407bb741e43f2ee3364866d5e5d437f4d8d413b Corrected new argument checking. diff -r 5407bb741e43 -r b39734cad470 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";