1
0
mirror of git://projects.qi-hardware.com/openwrt-xburst.git synced 2024-12-25 18:14:35 +02:00
openwrt-xburst/scripts/gen_busybox_config.pl

23 lines
334 B
Perl
Raw Normal View History

#!/usr/bin/perl
use strict;
my $line;
my $l1 = '';
my $l2 = '=y';
while (<>) {
chomp;
/^(# )BR2_LARGEFILE(.+)$/ and do {
$l1 = $1;
$l2 = $2;
};
/^(# )?BUSYBOX_(.+)/ and do {
my $p1 = $1;
my $p2 = $2;
$p2 =~ /(CONFIG_LFS|FDISK_SUPPORT_LARGE_DISKS)/ and do {
$p1 = $l1;
$p2 = "$1$l2";
};
print "$p1$p2\n";
}
}