1 my ($tag, $version, $buildid, $pristine);
24 my $META = new IO::File;
25 if (!$META->open("META")) {
26 die "unable to open the META file: $!\n";
29 while (defined($line = <$META>)) {
30 if ($line =~ /^TAG\s*=\s*(.+)/) {
32 } elsif ($line =~ /^VERSION\s*=\s*([\d\.])/) {
34 } elsif ($line =~ /^BUILDID\s*=\s*([a-g\d]+)/) {
36 } elsif ($line =~ /^PRISTINE\s*=\s*([01])/) {