*** empty log message ***

1 files changed, 40 insertions, 0 deletions

diff --git a/buildperl.tcl b/buildperl.tcl
new file mode 100644
index 0000000..3b01864
--- /dev/null
+++ b/buildperl.tcl
@@ -0,0 +1,40 @@
+#
+# This script is intended to be run in the top directory
+# with: tclsh84 buildperl.tcl
+#
+
+#
+# Create a perl build directory and copy the relevant
+# files in it.
+#
+set wd [pwd]
+set files {t Zinc.xs Zinc.pm Makefile.PL demos README Zinc}
+set buildDir buildperl
+
+puts "Creating temporary build structure for Tkzinc perl variant"
+
+if { [file exists $buildDir] } {
+    file delete -force $buildDir
+}
+file mkdir $buildDir
+foreach f $files {
+    file copy -force Perl/$f $buildDir
+}
+foreach f [glob -nocomplain libtess/*.c libtess/*.h generic/*.c generic/*.h win/*.c debian/changelog debian/copyright] {
+    file copy -force $f $buildDir
+}
+
+puts "Compiling the perl variant"
+
+set make make
+if { [lindex $tcl_platform(os) 0] eq "Windows" } {
+    set make nmake
+}
+
+cd buildperl
+catch {exec perl Makefile.PL} result
+puts $result
+catch {exec $make} result
+puts $result
+
+cd $wd