Lines Matching refs:first
92 my ($first, $rest) = ($1,$2);
97 my $pos = index($argumentative,$first);
103 error("Incomplete option: $first (needs an argument)");
108 eval "\$opt_$first = \$rest;";
114 error("Incomplete option: $first (needs an argument)");
119 eval "push(\@opt_$first, \$rest);";
122 eval "\$opt_$first = 1";
132 error("Unknown option: $first");
270 error("Directory `$name' already exists. Remove first");
723 ** To play with this sample module first compile it into a