...
| Code Block | ||||
|---|---|---|---|---|
| ||||
sub fix_name {
my $name = shift;
if ($name eq "") {
return $name;
}
$name =~ s/^([a-z])/\U$1\E/g;
$name =~ s/ ([a-z])/ \U$1\E/g;
if (length( $name) == 0) {
die "Invalid name"; # cannot happen
}
return $name;
}
|
...
| Code Block | ||||
|---|---|---|---|---|
| ||||
sub fix_name {
my $name = shift;
$name =~ s/^([a-z])/\U$1\E/g;
$name =~ s/ ([a-z])/ \U$1\E/g;
if (length( $name) == 0) {
die "Invalid name"; # cannot happen
}
return $name;
}
|
...
Recommendation | Severity | Likelihood | Remediation Cost | Priority | Level |
|---|---|---|---|---|---|
MSC00-PL | low | unlikely | high | P1 | L1 L3 |
Related Guidelines
CERT C Secure Coding Standard: MSC07-C. Detect and remove dead code
...