X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=hacks%2Fxml2man.pl;fp=hacks%2Fxml2man.pl;h=79d52076474367d4ec64aaff3181ab2865d937f9;hp=a4d9538e4730d4fa8a11a46fb354022a255cac71;hb=6afd6db0ae9396cd7ff897ade597cd5483f49b0e;hpb=dba664f31aa87285db4d76cf8c5e66335299703a diff --git a/hacks/xml2man.pl b/hacks/xml2man.pl index a4d9538e..79d52076 100755 --- a/hacks/xml2man.pl +++ b/hacks/xml2man.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# Copyright © 2002-2013 Jamie Zawinski +# Copyright © 2002-2014 Jamie Zawinski # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that @@ -24,7 +24,7 @@ use strict; use Text::Wrap; my $progname = $0; $progname =~ s@.*/@@g; -my $version = q{ $Revision: 1.5 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/; +my ($version) = ('$Revision: 1.6 $' =~ m/\s(\d[.\d]+)\s/s); my $verbose = 0; @@ -181,6 +181,7 @@ sub xml2man($) { } elsif (m@^<_description>\s*(.*)\s*@) { $desc = $1; + } elsif (m@^