Lines Matching refs:cc
143 my( $file, $usefile, $cc, $address, $perlbug, $testaddress, $filename, $messageid, $domain,
319 $cc = $::opt_C ? "" : (
439 if ($from eq $cc or $me eq $cc) {
441 $cc = "yourself";
452 print "Local perl administrator [$cc]: ";
457 $cc = $entry;
458 $cc = '' if $me eq $cc;
462 $cc = '' if $cc =~ /^(none|yourself|me|myself|ourselves)$/i;
463 $andcc = " and $cc" if $cc;
762 print FILE "Cc: $cc\n" if $cc;
844 $msg->cc($cc) if $cc;
856 ($cc =~ /@/ and $cc !~ /^\w+%"/) ) {
862 $cc = qq[${prefix}"$cc"] unless !$cc || $cc =~ /^\w+%"/;
864 $subject =~ s/"/""/g; $address =~ s/"/""/g; $cc =~ s/"/""/g;
865 my $sts = system(qq[mail/Subject="$subject" $filename. "$address","$cc"]);
899 print SENDMAIL "Cc: $cc\n" if $cc;
938 -c Address to send copy of report to. Defaults to `$cc'.