equal
deleted
inserted
replaced
108 exit(0); |
108 exit(0); |
109 } |
109 } |
110 |
110 |
111 foreach my $pdkCount (0 .. $#PDK) |
111 foreach my $pdkCount (0 .. $#PDK) |
112 { |
112 { |
113 if (scalar (grep {defined} keys %{$PDK[$pdkCount]}) == 0) |
113 if (0 == scalar (grep { defined $_ } values %{$PDK[$pdkCount]})) |
114 { |
114 { |
115 print "No data provided to identify PDK", $pdkCount + 1, "\n"; |
115 print "No data provided to identify PDK", $pdkCount + 1, "\n"; |
116 helpme(); |
116 helpme(); |
117 exit (1); |
117 exit (1); |
118 } |
118 } |
236 if($pdkloc2) |
236 if($pdkloc2) |
237 { |
237 { |
238 $pdk_path2 = $pdkloc2; |
238 $pdk_path2 = $pdkloc2; |
239 } |
239 } |
240 |
240 |
241 # |
|
242 # If we reach this point, this means that we have the right numbers of arguments passed to the script. |
|
243 # |
|
244 print "\nWe are on the right path!!!!\n"; |
|
245 |
|
246 print "pdk_path1=$pdk_path1\n"; |
241 print "pdk_path1=$pdk_path1\n"; |
247 print "pdk_complete_name1=$pdk_complete_name1\n"; |
242 print "pdk_complete_name1=$pdk_complete_name1\n"; |
248 print "pdk_complete_path1=$pdk_complete_path1\n"; |
243 print "pdk_complete_path1=$pdk_complete_path1\n"; |
249 print "\n"; |
244 print "\n"; |
250 print "pdk_path2=$pdk_path2\n"; |
245 print "pdk_path2=$pdk_path2\n"; |