summaryrefslogtreecommitdiff
path: root/scripts/setglobvals.pl
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2010-11-21 16:55:05 +0000
committerPaul Buetow <paul@buetow.org>2010-11-21 16:55:05 +0000
commit5ca206ce46474fc47bfd966996df9fdbcb094a6c (patch)
tree0da3a1d346d3a9f1aed8c3785699b138c0be1052 /scripts/setglobvals.pl
parent7fa0ff180b35e7fef218f0b9113d7e0f3f9b54a8 (diff)
moving into ychat subdir
Diffstat (limited to 'scripts/setglobvals.pl')
-rwxr-xr-xscripts/setglobvals.pl32
1 files changed, 0 insertions, 32 deletions
diff --git a/scripts/setglobvals.pl b/scripts/setglobvals.pl
deleted file mode 100755
index 13288a5..0000000
--- a/scripts/setglobvals.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-# The yChat Project (2003)
-#
-# This script sets up some variables in src/glob.h
-
-use strict;
-
-use scripts::modules::file;
-
-my $file = 'src/glob.h';
-my $gmake = `which gmake`;
-my @glob = fopen($file);
-chomp($gmake);
-
-print "-> Setting values in $file\n";
-
-my $modified = 0;
-foreach (@glob)
-{
- if (/^(#define GMAKE) "(.*)"/)
- {
- if ($2 ne "$gmake \\0")
- {
- s/^$1 "$2"/#define GMAKE "$gmake \\0"/;
- print " -> Set $gmake\n";
- fwrite($file,@glob);
- last;
- }
- }
-}
-