Changeset 130
- Timestamp:
- 08/16/07 16:37:04 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/debbuild
r129 r130 35 35 #use re "debug"; 36 36 37 die "No .spec file to work with! Exiting.\n" if scalar(@ARGV) == 0; 38 37 39 # Program flow: 38 40 # -> Parse/execute "system" config/macros (if any - should be rare) … … 163 165 my $installscript = '[ "$RPM_BUILD_ROOT" != "/" ] && rm -rf $RPM_BUILD_ROOT'."\n"; 164 166 my $cleanscript = ''; 165 166 die "Not enough arguments\n" if #$argv == 0;167 167 168 168 # Snag some environment data … … 460 460 # Parse the .spec file. 461 461 sub parse_spec { 462 die "No .spec file specified! Exiting.\n" if !$specfile; 462 463 open SPECFILE,"<$specfile" or die "specfile ($specfile) barfed: $!"; 463 464
Note:
See TracChangeset
for help on using the changeset viewer.