6 my @orig = (); # original interfaces file
9 while($line = <STDIN>) {
10 if ($line =~ m/^\s*#/) {
16 while ($line =~ m/\\\n$/ and $tmp = <>) {
31 if ($y =~ m/^scheme\b/) {
32 print STDERR "Schemes cannot be automatically converted\n";
35 if ($y =~ m/^auto\b/) {
36 print STDERR "File seems to already be converted\n";
40 if ($y =~ m/^iface\b/s) {
41 $out .= $auto . $block;
43 if ($y =~ m/^iface\s+(\S+)/s && ! $doneifaces{$1}++ ) {
44 $auto = "# automatically added when upgrading\n";
52 if ($y =~ m/^noauto/) {
55 $spaces =~ s/\S.*$//s;
56 $block .= $spaces . "# noauto (removed on upgrade)\n";
63 $out .= $auto . $block;