Release v1.009

CONTRIBUTING.pod

@@ -1,6 +1,6 @@
 =head1 NAME
 
-How to constribute to C<github-keygen>?
+How to contribute to C<github-keygen>?
 
 =head1 DESCRIPTION
 
@@ -23,7 +23,12 @@ submitted as pull requests at github.
 =item 2. Make your fix/feature
 
     git checkout -b <my-patch> devel
-    ...
+
+    $EDITOR bin/github-keygen
+
+    # Test...
+    bin/github-keygen ...
+
     git commit
 
 =item 3. Setup a fork
@@ -50,4 +55,27 @@ Redo step 2. and 4.
 
 =back
 
+=head1 FOR RELEASE MANAGER
+
+=over 4
+
+=item * Bump C<$VERSION>
+
+    git checkout devel
+    # Bump version number
+    $EDITOR/bin/github-keygen
+    # Update changelog
+    $EDITOR README.pod
+    git add bin/github-keygen README.pod
+    git commit
+
+=item * Release
+
+    git checkout devel
+    ./release.pl
+    git push origin devel release
+    git push origin --tags
+
+=back
+
 =cut

README.pod

@@ -235,6 +235,10 @@ releases. And you can also have a look to the commit log.
 
 =over 4
 
+=item v1.009
+
+Added support for dashes in Github usernames. Thanks Pedro Figueiredo!
+
 =item v1.008
 
 Added connection sharing: connection to Github is kept alive for 60
@@ -340,6 +344,9 @@ L<Eric Lefevre|https://github.com/elefevre>: documentation patch.
 L<Eu Beng Hee|https://github.com/ahbeng>: L<blog post about SSH connection sharing|http://interrobeng.com/2013/08/25/speed-up-git-5x-to-50x/> that inspired
 changes in 1.008.
 
+L<Pedro Figueiredo|https://github.com/pfig>: support for Github account with
+dashes (v1.009).
+
 If you want to contribute, have a look to L<CONTRIBUTING.pod>.
 
 =head1 COPYRIGHT & LICENSE

github-keygen

@@ -12123,7 +12123,7 @@ use Sys::Hostname;
 
 use constant HAS_TEXT_DIFF => eval { require Text::Diff; 1 };
 
-our $VERSION = '1.008';
+our $VERSION = '1.009';
 
 use constant {
     PROG => (File::Spec->splitpath($0))[2],
@@ -12209,7 +12209,7 @@ my %github_remove;
 
 while (@ARGV) {
     my $user = shift @ARGV;
-    pod2usage("invalid user '$user'") unless $user =~ /^[a-z0-9_]+$/;
+    pod2usage("invalid user '$user'") unless $user =~ /^[a-z0-9_-]+$/;
 
     my $remove = 0;
     my %u = (