bex prun: Forgotten debug message

diff --git a/lib/bin/bex-prun b/lib/bin/bex-prun
index 5c1c93b866f1f858b6775e05b645810987eec493..c31c12524987c4d0436a8270a3c236ab1b660200 100755 (executable)
--- a/lib/bin/bex-prun
+++ b/lib/bin/bex-prun
@@ -292,7 +292,7 @@ sub place_slot($) {
                        print STDERR "I: Replacing ", $best->{'Host'}, " (pri $bestpri)\n";
                        delete $best->{'Row'};
                }
-               print STDERR "I: Allocated ", $s->{'Host'}, " \@$besti (pri $pri)\n";
+               print STDERR "I: Allocated ", $s->{'Host'}, " \@$besti (pri $pri)\n" if $debug;
                $s->{'Row'} = $besti;
                $by_row[$besti] = $s;
        } else {