# HG changeset patch # User Simon Howkins # Date 1254738129 -3600 # Node ID 78b42fd9e2c451a2844e53b10c053f8e3d70d915 # Parent 75fa4158340a2111535f7f6201a52e0d0947db7b Added code to handle the script being given a log file argument which includes wild cards. diff -r 75fa4158340a -r 78b42fd9e2c4 common/tools/brag/logToBRAG.pl --- a/common/tools/brag/logToBRAG.pl Mon Oct 05 10:20:32 2009 +0100 +++ b/common/tools/brag/logToBRAG.pl Mon Oct 05 11:22:09 2009 +0100 @@ -46,6 +46,9 @@ exit(0 + !$help); } +# Do the wild-carding thing +@ARGV = map { glob $_ } @ARGV; + # Start to build structure to be output as XML (same format as XML::Parser would create for us) my $xmlNewline = bless { Text => "\n" }, "Characters"; my $step = bless {