[Module-build-checkins] Module-Build/lib/Module/Build/Platform Windows.pm,1.13.2.5,1.13.2.6

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7341/lib/Module/Build/Platform

Modified Files:
      Tag: release-0_26_branch
	Windows.pm 
Log Message:
Fixed problem where we were referencing 'objects' from the wrong hash.

Index: Windows.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/Windows.pm,v
retrieving revision 1.13.2.5
retrieving revision 1.13.2.6
diff -C2 -d -r1.13.2.5 -r1.13.2.6
*** Windows.pm	17 Nov 2004 16:16:53 -0000	1.13.2.5
--- Windows.pm	2 Dec 2004 23:39:52 -0000	1.13.2.6
***************
*** 114,118 ****
  sub link_c {
    my ($self, $to, $file_base) = @_;
!   my $cf = $self->{config};
  
    my $mylib = File::Spec->catfile(
--- 114,118 ----
  sub link_c {
    my ($self, $to, $file_base) = @_;
!   my ($cf, $p) = ($self->{config}, $self->{properties});
  
    my $mylib = File::Spec->catfile(
***************
*** 123,127 ****
      builddir      => $to,
      startup       => [ ],
!     objects       => [ "$file_base$cf->{obj_ext}", @{$self->{objects} || []} ],
      libs          => [ ],
      output        => $mylib,
--- 123,127 ----
      builddir      => $to,
      startup       => [ ],
!     objects       => [ "$file_base$cf->{obj_ext}", @{$p->{objects} || []} ],
      libs          => [ ],
      output        => $mylib,