diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-30 15:23:26 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-30 15:23:26 +0000 |
commit | 79458bc3071a469038a88cd3077d7068cd3e68c9 (patch) | |
tree | 098e4daa8b19affa3510e4ea301bd6448eec2e10 | |
parent | aed4e4c6e7f10448d7fe06b47cef9c048a457c14 (diff) | |
download | rpmtools-79458bc3071a469038a88cd3077d7068cd3e68c9.tar rpmtools-79458bc3071a469038a88cd3077d7068cd3e68c9.tar.gz rpmtools-79458bc3071a469038a88cd3077d7068cd3e68c9.tar.bz2 rpmtools-79458bc3071a469038a88cd3077d7068cd3e68c9.tar.xz rpmtools-79458bc3071a469038a88cd3077d7068cd3e68c9.zip |
Put license in doc. More code cleanup.
-rw-r--r-- | genhdlist | 31 |
1 files changed, 12 insertions, 19 deletions
@@ -2,22 +2,6 @@ (our $VERSION) = q$Id$ =~ /(\d+\.\d+)/; -#- Copyright (C) 1999-2005 Mandrakesoft -#- -#- This program is free software; you can redistribute it and/or modify -#- it under the terms of the GNU General Public License as published by -#- the Free Software Foundation; either version 2, or (at your option) -#- any later version. -#- -#- This program is distributed in the hope that it will be useful, -#- but WITHOUT ANY WARRANTY; without even the implied warranty of -#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -#- GNU General Public License for more details. -#- -#- You should have received a copy of the GNU General Public License -#- along with this program; if not, write to the Free Software -#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - use strict; use URPM; use URPM::Build; @@ -26,7 +10,7 @@ use File::Path; use Getopt::Long; use Pod::Usage; -my ($noclean, $nooutput, $nobadrpm, $md5sum, $subdir, $suffix, $dest) = (0, 0, 0, 0, "", "", ""); +my ($nooutput, $nobadrpm, $md5sum, $subdir, $suffix, $dest) = (0, 0, 0, "", "", ""); my $tmpdir = (-d "$ENV{HOME}/tmp" ? "$ENV{HOME}/tmp" : $ENV{TMPDIR} || "/tmp") . "/.build_hdlist"; sub usage () { @@ -39,7 +23,7 @@ GetOptions( 'help|h' => sub { usage(); exit 0 }, list => \my $list, nobadrpm => \$nobadrpm, - noclean => \$noclean, + noclean => \my $noclean, md5sum => \$md5sum, s => \$nooutput, 'subdir=s' => \$subdir, @@ -211,7 +195,7 @@ F</tmp/.build_hdlist>. =head1 SEE ALSO -gendistrib(1) +gendistrib(1), parsehdlist(1) =head1 COPYRIGHT @@ -222,4 +206,13 @@ it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + =cut |