diff options
| author | Paul Buetow (mars.fritz.box) <paul@buetow.org> | 2013-12-15 11:49:02 +0100 |
|---|---|---|
| committer | Paul Buetow (mars.fritz.box) <paul@buetow.org> | 2013-12-15 11:49:02 +0100 |
| commit | 3a96ab7e91145b367d05e98533b5f426f762f83f (patch) | |
| tree | ac7758a706066e14b785ab6e5f7071a54baa856b /ycurses/scripts/setglobvals.pl | |
| parent | 332d7b2107833018b3ef67b64ffe121bff1ef4fb (diff) | |
add packagespackages
Diffstat (limited to 'ycurses/scripts/setglobvals.pl')
| -rwxr-xr-x | ycurses/scripts/setglobvals.pl | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/ycurses/scripts/setglobvals.pl b/ycurses/scripts/setglobvals.pl deleted file mode 100755 index f0763ac..0000000 --- a/ycurses/scripts/setglobvals.pl +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl - -# The ycurses 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; - } - } -} - |
