The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/bin/bash

FILE=$1

MAX=$2

if [ -z "$MAX" ]
then
	MAX=info
fi

for i in data/$FILE*.gv ;
do
	X=`basename $i .gv`

	scripts/test.1.sh $X $MAX
done