Lines Matching refs:arg
139 @arg= split('=', $i);
140 @arg[0] =~ tr/A-Z/a-z/;
142 if (@arg[0] eq "-pdb-orig")
144 $pdb_orig=$arg[1];
146 elsif (@arg[0] eq "-pdb-new")
148 $pdb_new=$arg[1];
150 elsif (@arg[0] eq "-xml-orig")
152 $xml_orig=$arg[1];
154 elsif (@arg[0] eq "-xml-new")
156 $xml_new=$arg[1];
158 elsif (@arg[0] eq "-env")
160 set_env_from_props($arg[1]);
162 elsif (@arg[0] eq "-list")
164 $test_list = $arg[1];
166 elsif (@arg[0] eq "-one")
168 $infile = $arg[1];
170 elsif (@arg[0] eq "-type")
172 $diff_type = $arg[1];
175 elsif (@arg[0] eq "-log")
177 $logfile = $arg[1];
194 @arg = split('=', $_);
195 @arg[0] =~ tr/a-z/A-Z/;
196 $len = @arg;
202 if (@arg[0] eq "PDB_ORIG")
204 $pdb_orig=$arg[1];
206 elsif (@arg[0] eq "PDB_NEW")
208 $pdb_new=$arg[1];
210 elsif (@arg[0] eq "XML_ORIG")
212 $xml_orig=$arg[1];
214 elsif (@arg[0] eq "XML_NEW")
216 $xml_new=$arg[1];