Changeset 123
- Timestamp:
- 08/01/07 15:25:06 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/debbuild
r122 r123 1576 1576 } # while() 1577 1577 1578 # Misc expansions 1579 $macrostring =~ s|%{_arch}|$hostarch|g; 1580 $macrostring =~ s|%{optflags}|$optflags{$hostarch}|g; 1581 1578 1582 # should probably stick a "no runaway" flag in here... Just In Case... 1579 1583 # %define's 1580 1584 while (my ($key) = ($macrostring =~ /%{([a-z0-9]+)}/i) ) { 1585 # hrm. This needs thinking. 1586 #die "A horrible death! \%{$key}, '$macrostring'\n" if !$specglobals{$key}; 1581 1587 $macrostring =~ s|%{$key}|$specglobals{$key}|g; 1582 1588 # wanna limit this to "... if $specglobals{$key}", but need more magic … … 1588 1594 $macrostring =~ s|%{__([a-z0-9_-]+)}|$1|g; 1589 1595 } 1590 1591 # Misc expansions1592 $macrostring =~ s|%{_arch}|$hostarch|g;1593 $macrostring =~ s|%{optflags}|$optflags{$hostarch}|g;1594 1596 1595 1597 # Perl @INC/...lib locations, and other related bits.
Note:
See TracChangeset
for help on using the changeset viewer.