#Use Config;

my $PVOBTAG;

#if ($Config{'osname'} eq 'MSWin32') {
	$PVOBTAG = '\cc5-pvob1';
#}
#else {
#	$PVOBTAG = '';
#}

my $STREAM = "stream:".$ENV{"CLEARCASE_STREAM"};
my $ATTYPE = "attype:deliver_in_progress\@$PVOBTAG";

$msg = `cleartool mkattr -default $ATTYPE $STREAM 2>&1`;

print $msg;

if (index($msg, "Error: Object already has") >= 0) {
	print "***\n";
	print "*** A deliver operation is already in progress. Please try again later.\n";
	print "***\n";
	exit 1;
}
exit 0;