From 7cf0eb9b7d071512622e3a33675565dd8f471d59 Mon Sep 17 00:00:00 2001
From: mertz
Date: Sat, 6 Mar 2004 15:42:53 +0000
Subject: the PTK800 flag is set according to Tk::$VERSION rather than set
 explicitely in the script

---
 Perl/Makefile.PL | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'Perl')

diff --git a/Perl/Makefile.PL b/Perl/Makefile.PL
index bf76ab5..150a32e 100644
--- a/Perl/Makefile.PL
+++ b/Perl/Makefile.PL
@@ -100,8 +100,7 @@ sub get_flags {
     if ($WIN) {
 	$DEF_FLAGS{'SHAPE'} = 0;
     }
-#    my $defines = '-DPTK';
-    my $defines = '-DPTK -DPTK_800';
+    my $defines = '-DPTK';
     print "Configuring with:\n    ";
     foreach my $flag (keys %DEF_FLAGS) {
 	print "$flag=", $DEF_FLAGS{$flag} ? 'ok' : 'no', " ";
@@ -112,6 +111,12 @@ sub get_flags {
 	    }
 	}
     }
+    if ($Tk::VERSION =~ /^800/) {
+      $defines .= " -DPTK_800";
+      print "PTK=800";
+    } else {
+      print "PTK=804";
+    }
     print "\n";
     return $defines;
 }
-- 
cgit v1.1