d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Opening braces should be at the end of the controlling line. Else

Browse Source 
and elsif belong on the same line as the closing brace for the
previous if or elsif block.

Suggested by:	des
This commit is contained in:
joe 2000-10-18 17:48:10 +00:00
parent 21e1325b98
commit e8f6f29b2c
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
share/man/man7/style.perl.7
View File

@ -137,7 +137,7 @@ blank line:
my $pid; # Child PID
local *PIPE; # Pipe
my $output; # Output from command
}
}
.Ed
.Pp
Whenever possible code should be run through the code checker
@ -150,6 +150,38 @@ or
.Ar script.pl
and produce no warnings.
.Pp
Opening braces should be at the end of the controlling line. Else
and elsif belong on the same line as the closing brace for the
previous if or elsif block:
.Bd -literal -offset 0i
sub foo($@) {
my $cmd = shift; # Command to run
my @args = @_; # Arguments to command
my $pid; # Child PID
local *PIPE; # Pipe
my $output; # Output from command
unless (defined($pid = open(PIPE, "-|"))) {
die("open(): $!\\n");
} elsif ($pid == 0) {
exec($cmd, @args);
die("exec(): $!\\n");
}
$output = "";
while (<PIPE>) {
$output .= $_;
}
waitpid($pid, 0);
if ($? & 0xff) {
die("$cmd caught a signal " . ($? & 0x7f) . "\\n");
} elsif ($?) {
die("$cmd returned exit code " . ($? >> 8) . "\\n");
}
return $output;
}
.Ed
.Pp
Indentation and block style should follow
.Xr style 9
where applicable.