#!/usr/bin/perl -w
#
# Project Builder Distribution Checker
#
# $Id$
#
# Copyright B. Cornec 2007
# Provided under the GPL v2

use strict 'vars';
use Data::Dumper;
use lib qw (lib);
use ProjectBuilder::Distribution qw (pb_distro_init);

my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init();
print "distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n";