# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1451903228 -3600
# Node ID 06e0bf90ffec203769a7e20182eeeef88ee06fd1
# Parent  3ee9d9b5724ceed90b3802abf487b3344d6a437e
Output version.PL to stdout if outfile is not passed as arg1

diff -r 3ee9d9b5724c -r 06e0bf90ffec lib/version.PL
--- a/lib/version.PL	Mon Jan 04 11:18:27 2016 +0100
+++ b/lib/version.PL	Mon Jan 04 11:27:08 2016 +0100
@@ -1,14 +1,16 @@
 #! /usr/bin/perl
 my $outfile = shift;
 
+my $now = localtime;
 chomp(my $version = `hg log -r . --template '{latesttag}-{latesttagdistance}-{node|short}\n'`);
-my $now = localtime;
 
-open(my $output, '>',  $_ = $outfile) or die "Can't open $_: $!\n";
+if (defined $outfile) {
+	open(STDOUT, '>',  $_ = $outfile) or die "Can't open $_: $!\n";
+}
 
-print {$output} <<_;
+print <<_;
 [%# autogenerated at $now by $0 %]
 [% vcs.version = "$version"; %]
 _
 
-utime 0, 0 => $outfile;
+utime 0, 0 => $outfile