Another helper routine that I don't want to add back and forth each commit.

This commit is contained in:
zhuk 2015-04-28 14:10:18 +00:00
parent 2ebcf5620f
commit 074d37fcb8

View File

@ -4,6 +4,11 @@ package Util;
use strict;
use warnings;
sub plibs {
my $prefix = shift;
print STDERR "$prefix: ".join(", ", @_)."\n";
}
# prints hash in compact form, for debugging purposes
sub phash {
my $h = shift;