Lines Matching refs:entry
453 my $entry = scalar <>;
454 chomp $entry;
456 if ($entry ne "") {
457 $cc = $entry;
491 my $entry =scalar <>;
492 chomp $entry;
495 if ($entry eq "file") {
497 } elsif ($entry ne "") {
498 $ed = $entry;
518 my $entry = scalar <>;
519 chomp $entry;
521 if ($entry eq "") {
528 unless (-f $entry and -r $entry) {
530 I'm sorry, but I can't read from `$entry'. Maybe you mistyped the name of
536 $file = $entry;
662 my $entry =scalar <>;
663 chomp $entry;
664 $ed = $entry unless $entry eq '';
685 my $entry =scalar <>;
686 chomp $entry;
688 if ($entry ne "") {
689 $ed = $entry;