Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28793

Modified Files:
        PkgVersion.pm ChangeLog 
Log Message:
Remove restriction on use of %a...causes too much disruption at this point.


Index: PkgVersion.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/PkgVersion.pm,v
retrieving revision 1.287
retrieving revision 1.288
diff -u -d -r1.287 -r1.288
--- PkgVersion.pm       19 Jul 2004 08:53:39 -0000      1.287
+++ PkgVersion.pm       20 Jul 2004 05:07:07 -0000      1.288
@@ -159,6 +159,7 @@
                                'D' => $parentdestdir,
                                'I' => $parentdestdir.$basepath,
 
+                               'a' => $self->{_patchpath},
                                'b' => '.'
                        };
 
@@ -1674,9 +1675,6 @@
        $self->run_script($patch_script, "patching (Update* flags)", 0);
        $patch_script = "";
 
-       ### %a expansion only used for processing Patch and in PatchScript
-       $self->{_expand}->{a} = $self->{_patchpath};
-
        ### patches specified by filename
        if ($self->has_param("Patch")) {
                foreach $patch (split(/\s+/,$self->param("Patch"))) {
@@ -1687,8 +1685,6 @@
 
        ### Deal with PatchScript field
        $self->run_script($self->get_patchscript, "patching", 1);
-
-       delete $self->{_expand}->{a};  # don't leak %a expansion
 }
 
 sub get_patchscript {

Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.670
retrieving revision 1.671
diff -u -d -r1.670 -r1.671
--- ChangeLog   19 Jul 2004 08:53:39 -0000      1.670
+++ ChangeLog   20 Jul 2004 05:07:07 -0000      1.671
@@ -1,3 +1,7 @@
+2004-07-18  Daniel Macks  <[EMAIL PROTECTED]>
+
+       * PkgVersion.pm: _Un_restrict use of %a to PatchScript.
+
 2004-07-19  Daniel Macks  <[EMAIL PROTECTED]>
 
        * PkgVersion.pm: Run CompileScript (if one is explicitly defined)



-------------------------------------------------------
This SF.Net email is sponsored by BEA Weblogic Workshop
FREE Java Enterprise J2EE developer tools!
Get your free copy of BEA WebLogic Workshop 8.1 today.
http://ads.osdn.com/?ad_id=4721&alloc_id=10040&op=click
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits

Reply via email to