Lines Matching refs:arg
131 @arg= split('=', $i);
132 @arg[0] =~ tr/A-Z/a-z/;
134 if (@arg[0] eq "-pdb-orig")
136 $pdb_orig=$arg[1];
138 elsif (@arg[0] eq "-pdb-new")
140 $pdb_new=$arg[1];
142 elsif (@arg[0] eq "-xml-orig")
144 $xml_orig=$arg[1];
146 elsif (@arg[0] eq "-xml-new")
148 $xml_new=$arg[1];
150 elsif (@arg[0] eq "-env")
152 set_env_from_props($arg[1]);
154 elsif (@arg[0] eq "-list")
156 $test_list = $arg[1];
158 elsif (@arg[0] eq "-one")
160 $infile = $arg[1];
162 elsif (@arg[0] eq "-type")
164 $diff_type = $arg[1];
167 elsif (@arg[0] eq "-log")
169 $logfile = $arg[1];
186 @arg = split('=', $_);
187 @arg[0] =~ tr/a-z/A-Z/;
188 $len = @arg;
194 if (@arg[0] eq "PDB_ORIG")
196 $pdb_orig=$arg[1];
198 elsif (@arg[0] eq "PDB_NEW")
200 $pdb_new=$arg[1];
202 elsif (@arg[0] eq "XML_ORIG")
204 $xml_orig=$arg[1];
206 elsif (@arg[0] eq "XML_NEW")
208 $xml_new=$arg[1];