database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00
Code Activity

Merged in 5.1.35

Browse Source
This commit is contained in:
Mikael Ronstrom
2009-07-01 14:36:40 +02:00
parent a22c8c5be5 bd4b896a36
commit c75a265381
10 changed files with 76 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
scripts/dheadgen.pl
View File

@ -267,23 +267,23 @@ usage() if ($infile !~ /(.+)\.d$/);
# If the system has native support for DTrace, we'll use that binary instead.
#
if (-x '/usr/sbin/dtrace' && !$force) {
open(my $dt, '-|', "/usr/sbin/dtrace -C -h -s $infile -o /dev/stdout")
open(DTRACE, "-| /usr/sbin/dtrace -C -h -s $infile -o /dev/stdout")
or die "can't invoke dtrace(1M)";
while (<$dt>) {
while (<DTRACE>) {
emit_dtrace($_);
}
close($dt);
close(DTRACE);
exit(0);
}
emit_prologue($infile);
open(my $d, '<', $infile) or die "couldn't open $infile";
@lines = <$d>;
close($d);
open(D, "< $infile") or die "couldn't open $infile";
@lines = <D>;
close(D);
while (1) {
my $nl = 0;