mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-05 06:27:37 +00:00
34 lines
784 B
Perl
34 lines
784 B
Perl
--- lib/GDS2.pm.PL.orig Thu May 12 13:19:30 2005
|
|
+++ lib/GDS2.pm.PL Sun Apr 29 15:08:31 2007
|
|
@@ -11,19 +11,20 @@
|
|
|
|
EOP
|
|
|
|
-print "Do you want to use Inline::C code? (y/N): ";
|
|
+#print "Do you want to use Inline::C code? (y/N): ";
|
|
|
|
-my $response = <STDIN>;
|
|
-if ($response =~ m/^[yY]/)
|
|
-{
|
|
- $response = 'yes';
|
|
- print "\nMaking version of GDS2.pm with C code on....";
|
|
-}
|
|
-else
|
|
-{
|
|
+#my $response = <STDIN>;
|
|
+my $response;
|
|
+#if ($response =~ m/^[yY]/)
|
|
+#{
|
|
+# $response = 'yes';
|
|
+# print "\nMaking version of GDS2.pm with C code on....";
|
|
+#}
|
|
+#else
|
|
+#{
|
|
$response = 'no';
|
|
print "\nMaking version of GDS2.pm with C code off....";
|
|
-}
|
|
+#}
|
|
|
|
rename "lib/GDS2.pm","lib/GDS2.pm.original";
|
|
open(OLD,"<lib/GDS2.pm.original") or die "Unable to read lib/GDS2.pm.original $!";
|