[pve-qemu.git] / debian / parse-cpu-flags.pl

#!/usr/bin/perl

use warnings;
use strict;

my @flags = ();
my $got_flags_section;

while (<STDIN>) {
    if (/^\s*Recognized CPUID flags:/) {
	$got_flags_section = 1;
	next;
    }
    next if !$got_flags_section;

    s/^\s+//;

    push @flags, split(/\s+/);
}

die "no QEMU/KVM CPU flags detected from STDIN input" if scalar (@flags) <= 0;

print join("\n", @flags) or die "$!\n";
Commit	Line	Data
376d9ce8 TL	1	#!/usr/bin/perl
	2
	3	use warnings;
	4	use strict;
	5
	6	my @flags = ();
	7	my $got_flags_section;
	8
	9	while (<STDIN>) {
	10	if (/^\s*Recognized CPUID flags:/) {
	11	$got_flags_section = 1;
	12	next;
	13	}
	14	next if !$got_flags_section;
	15
	16	s/^\s+//;
	17
	18	push @flags, split(/\s+/);
	19	}
	20
	21	die "no QEMU/KVM CPU flags detected from STDIN input" if scalar (@flags) <= 0;
	22
	23	print join("\n", @flags) or die "$!\n";