From 59adc3d06ddc1d6044fbcdcd3b41f115e8779460 Mon Sep 17 00:00:00 2001
From: Benjamin Schieder <blindcoder@scavenger.homeip.net>
Date: Wed, 10 Nov 2004 13:21:41 +0000
Subject: [PATCH] Benjamin Schieder: 	fix clusterbuild simulation. 
 Packageforking b0rked it.

[2004110209470600324] (https://www.rocklinux.net/submaster)



git-svn-id: http://www.rocklinux.org/svn/rock-linux/trunk@4768 c5f82cb5-29bc-0310-9cd0-bff59a50e3bc
---
 scripts/parasim2.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scripts/parasim2.pl b/scripts/parasim2.pl
index 16665291c..fef403011 100644
--- a/scripts/parasim2.pl
+++ b/scripts/parasim2.pl
@@ -63,6 +63,7 @@ while (1) {
 	while ($_=<Q> and $freejobs > 0) { 
 		@_ = split /\s+/; $qid="$_[0]-$_[5]";
 		s/^.*\s(\S+)\s*$/$1/; $_++;
+		$qid=~s/-.*?=/-/g;
 		printf LOG "%10d: Creating new job $qid " .
 		           "(pri $_[1], tm $_).\n", $now;
 		system("rm -f $logdir/logs_$id/$qid.* ; " .