|
Last change
on this file since e840b97 was eab0bcd, checked in by Thorsten Glaser <tg@…>, 19 years ago |
|
these shall not be executable nor use absolute pathnames,
since perl doesn't always live in /usr/bin (e.g. NetBSD®)
git-svn-id: svn://www.freewrt.org/trunk/freewrt@2585 afb5a338-a214-0410-bd46-81f09a774fd1
|
-
Property mode
set to
100644
|
|
File size:
339 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/env perl
|
|---|
| 2 | use strict;
|
|---|
| 3 |
|
|---|
| 4 | my $line;
|
|---|
| 5 | my $l1 = '';
|
|---|
| 6 | my $l2 = '=y';
|
|---|
| 7 | while (<>) {
|
|---|
| 8 | chomp;
|
|---|
| 9 | /^(# )FWRT_LARGEFILE(.+)$/ and do {
|
|---|
| 10 | $l1 = $1;
|
|---|
| 11 | $l2 = $2;
|
|---|
| 12 | };
|
|---|
| 13 | /^(# )?BUSYBOX_(.+)/ and do {
|
|---|
| 14 | my $p1 = $1;
|
|---|
| 15 | my $p2 = $2;
|
|---|
| 16 | $p2 =~ /(CONFIG_LFS|FDISK_SUPPORT_LARGE_DISKS)/ and do {
|
|---|
| 17 | $p1 = $l1;
|
|---|
| 18 | $p2 = "$1$l2";
|
|---|
| 19 | };
|
|---|
| 20 | print "$p1$p2\n";
|
|---|
| 21 | }
|
|---|
| 22 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
