gcc -o blib\arch\BLAS.so BLAS_wrap.o -shared -I./lib -I../lib -LC:/_32/msys/1.0/local/lib -lgsl -lgslcblas -lm -gsl
BLAS_wrap.o:BLAS_wrap.c:(.text+0xb42): undefined reference to `Perl_get_context'
BLAS_wrap.o:BLAS_wrap.c:(.text+0xb53): undefined reference to `Perl_mg_get'
BLAS_wrap.o:BLAS_wrap.c:(.text+0xb58): undefined reference to `Perl_get_context'
BLAS_wrap.o:BLAS_wrap.c:(.text+0xb67): undefined reference to `Perl_sv_isobject'
.
.

##</code><code>##

gcc -o blib\arch\BLAS.so BLAS_wrap.o -shared -I./lib -I../lib -L/usr/local/lib -lgsl -lgslcblas -lm -gsl

##</code><code>##

--- Build.PL_orig	Sun Aug  3 18:20:42 2008
+++ Build.PL	Sun Aug  3 18:03:27 2008
@@ -131,13 +131,14 @@
   my ($self, $to, $file_base, $obj_file) = @_;
   my ($cf, $p) = ($self->{config}, $self->{properties}); # For convenience
 
-  my $lib_file = catfile($to, File::Basename::basename("$file_base.so"));
+  my $lib_file = catfile($to, File::Basename::basename("$file_base.$Config{dlext}"));
 
   $self->add_to_cleanup($lib_file);
   my $objects = $p->{objects} || [];
   
   unless ($self->up_to_date([$obj_file, @$objects], $lib_file)) {
     my @linker_flags = $self->split_like_shell($p->{extra_linker_flags});
+    push @linker_flags, $Config{archlib} . '/CORE/' . $Config{libperl} if $^O =~ /MSWin32/i;
     my @lddlflags = $self->split_like_shell($cf->{lddlflags}); 
     my @shrp = $self->split_like_shell($cf->{shrpenv});
     my @ld = $self->split_like_shell($cf->{ld}) || "gcc";