diff options
-rw-r--r-- | URPM.pm | 14 | ||||
-rw-r--r-- | URPM.xs | 2 |
2 files changed, 14 insertions, 2 deletions
@@ -10,7 +10,7 @@ use URPM::Resolve; use URPM::Signature; our @ISA = qw(DynaLoader); -our $VERSION = '1.26'; +our $VERSION = '1.27'; URPM->bootstrap($VERSION); @@ -158,6 +158,13 @@ sub traverse_tag { $count; } +sub add_macro { + my ($s) = @_; + #- quote for rpmlib, *sigh* + $s =~ s/\n/\\\n/g; + add_macro_noexpand($s); +} + package URPM::Package; our @ISA = qw(); # help perl_checker @@ -634,11 +641,16 @@ Expands the specified macro. =item add_macro($macro_definition) +=item add_macro_noexpand($macro_definition) + Define a macro. For example, URPM::add_macro("vendor Mandrakesoft"); my $vendor = URPM::expand("%vendor"); +The 'noexpand' version doesn't expand literal newline characters in the +macro definition. + =item del_macro($name) Delete a macro. @@ -3627,7 +3627,7 @@ expand(name) XPUSHs(sv_2mortal(newSVpv(value, 0))); void -add_macro(macro) +add_macro_noexpand(macro) char * macro CODE: rpmDefineMacro(NULL, macro, RMIL_DEFAULT); |