# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1217798071 -14400
# Node ID 216d6c84d918abbc8d6037df34820b12da790769
# Parent  0272fd3371b2c225f41e40102c6d0f1fdacce6ff
Make it a bit more pretty (i.e. not so ugly).

diff --git a/nginx-vendor-import.pl b/nginx-vendor-import.pl
--- a/nginx-vendor-import.pl
+++ b/nginx-vendor-import.pl
@@ -1,8 +1,13 @@
 #!/usr/bin/perl -w
 
+# (C) Maxim Dounin
+
 # Import nginx source history into Mercurial repo.
 
-# perl -nle 'BEGIN { $/ = "\n\nChanges with nginx "; }; m/^([\d.]+)\s+/gs && print "$1 -- \n\n$_\n\n--\n\n"' CHANGES | less
+###############################################################################
+
+use strict;
+use warnings;
 
 use HTTP::Date qw/ str2time /;
 use POSIX qw/ strftime /;
@@ -16,7 +21,7 @@ my $userepo;
 {
 	GetOptions(
 		'changes=s' => \$changes,
-		'userepo=s' => \$userepo,
+		'repo=s' => \$userepo,
 		'stopat=s'  => \$stopat,
 		'startat=s'  => \$startat,
 	);
@@ -110,3 +115,5 @@ foreach (@changes) {
 if ($userepo) {
 	`mv $prev/.hg $prev/.hgtags $userepo/`;
 }
+
+###############################################################################