diff options
| author | Paul Buetow <paul@buetow.org> | 2010-11-21 16:55:05 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2010-11-21 16:55:05 +0000 |
| commit | 5ca206ce46474fc47bfd966996df9fdbcb094a6c (patch) | |
| tree | 0da3a1d346d3a9f1aed8c3785699b138c0be1052 /scripts/setglobvals.pl | |
| parent | 7fa0ff180b35e7fef218f0b9113d7e0f3f9b54a8 (diff) | |
moving into ychat subdir
Diffstat (limited to 'scripts/setglobvals.pl')
| -rwxr-xr-x | scripts/setglobvals.pl | 32 |
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; - } - } -} - |
