version 1.16, 2002/04/07 19:35:27
|
version 1.18, 2002/04/10 05:58:17
|
Line 88 my ($tag,$version,$configuration_files,$
|
Line 88 my ($tag,$version,$configuration_files,$
|
$pathprefix,$customize)=@ARGV; |
$pathprefix,$customize)=@ARGV; |
@ARGV=(); # read standard input based on a pipe, not a command-line argument |
@ARGV=(); # read standard input based on a pipe, not a command-line argument |
|
|
|
# standardize pathprefix argument |
|
$pathprefix=~s/\/$//; # OTHERWISE THE BEGINNING SLASH MIGHT BE REMOVED |
|
|
if (!$version) {# version should be defined and string length greater than zero |
if (!$version) {# version should be defined and string length greater than zero |
print(<<END); |
print(<<END); |
See "perldoc make_rpm.pl" for more information. |
See "perldoc make_rpm.pl" for more information. |
Line 835 Linux
|
Line 838 Linux
|
|
|
=head1 SCRIPT CATEGORIES |
=head1 SCRIPT CATEGORIES |
|
|
UNIX/System Administration |
UNIX/System_administration |
|
|
=cut |
=cut |
|
|