← Back to branch summary

~ubuntu-branches/ubuntu/maverick/perl-tk/maverick

« back to all changes in this revision

Viewing changes to Tk/MMutil.pm

  • Committer: Bazaar Package Importer
  • Author(s): Colin Tuckley
  • Date: 2010-05-30 09:19:40 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20100530091940-wbmq9bloo92t9m6x
Tags: 1:804.029-1
http://bugs.debian.org/578814
* New Upstream Release (Closes: #578814).
* Added debian/watch file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Tk/MMutil.pm
9
9
use File::Basename;
10
10
 
11
11
use vars qw($VERSION);
12
 
$VERSION = '4.022'; # was: sprintf '4.%03d', q$Revision: #21 $ =~ /\D(\d+)\s*$/;
 
12
$VERSION = '4.024';
13
13
 
14
14
# warn __FILE__." $VERSION\n";
15
15
 
297
297
  {
298
298
   $self->{'LDDLFLAGS'} =~ s/-flat_namespace//;
299
299
   $self->{'LDDLFLAGS'} =~ s/-undefined\s+suppress//;
300
 
   if ( -e "$Config{'archlib'}/CORE/$Config{'libperl'}" ) {
301
 
    $self->{'LDDLFLAGS'} .= " -L\${PERL_ARCHLIB}/CORE -lperl ";
302
 
   }
303
 
   elsif ( -e "/System/Library/Perl/darwin/CORE/libperl.dylib" ) {
304
 
    $self->{'LDDLFLAGS'} .= " -L/System/Library/Perl/darwin/CORE -lperl ";
305
 
   }
306
 
   else {
307
 
    warn "Can't find libperl.dylib";
308
 
   }
 
300
## These lines seem to be not necessary for Panther, both
 
301
## builds with and without shared libperl, and seem to
 
302
## be dangerous for other MacOSX versions using perl builds
 
303
## without shared libperl, so disabled completely.
 
304
## See http://rt.cpan.org/Public/Bug/Display.html?id=39593
 
305
#   if ( -e "$Config{'archlib'}/CORE/$Config{'libperl'}" ) {
 
306
#    $self->{'LDDLFLAGS'} .= " -L\${PERL_ARCHLIB}/CORE -lperl ";
 
307
#   }
 
308
#   elsif ( -e "/System/Library/Perl/darwin/CORE/libperl.dylib" ) {
 
309
#    $self->{'LDDLFLAGS'} .= " -L/System/Library/Perl/darwin/CORE -lperl ";
 
310
#   }
 
311
#   else {
 
312
#    warn "Can't find libperl.dylib";
 
313
#   }
309
314
   $self->{'LDFLAGS'} =~ s/-flat_namespace//;
310
315
   $self->{'LDFLAGS'} =~ s/-undefined\s+suppress//;
311
316
  } elsif ($^O =~ /(openbsd)/i)
549
554
   if ($IsWin32 && $Config{'cc'} =~ /^gcc/i)
550
555
    {
551
556
     my $base  = $Config{'libpth'};
552
 
     $base =~ s#lib$#i386-mingw32/lib#;
553
 
     my $extra = "-L$base -lcomdlg32 -lgdi32";
 
557
     #$base =~ s#lib$#i386-mingw32/lib#;
 
558
     my $extra = "-L$base -limm32 -lcomctl32 -lcomdlg32 -lgdi32";
554
559
     my $libs = $att{'LIBS'}->[0];
555
560
     $att{'LIBS'}->[0] = "$extra $libs";
556
561
    }
562
567
     push(@opt,'LD' => 'gcc -shared');
563
568
     if ($win_arch eq 'MSWin32')
564
569
      {
565
 
       my $extra = "-L/lib/w32api -lcomdlg32 -lgdi32";
 
570
       my $extra = "-L/lib/w32api -limm32 -lcomctl32 -lcomdlg32 -lgdi32";
566
571
       my $libs = $att{'LIBS'}->[0];
567
572
       $att{'LIBS'}->[0] = "$extra $libs";
568
573
       $att{'DEFINE'} .= ' -D__WIN32__ -D_WIN32 -DWINARCH_MSWIN32';