File: trimheader.pl

package info (click to toggle)
libtrash 0.8-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 300 kB
  • ctags: 113
  • sloc: ansic: 1,604; perl: 208; makefile: 77
file content (18 lines) | stat: -rwxr-xr-x 483 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use English;
use strict;

open OLD_HEADER, "trash.h" or die "Unable to open current header file trash.h\n";
open NEW_HEADER, ">trash-new.h" or die "Unable to open new header file trash-new.h\n.";

while (<OLD_HEADER>)
{
    
    last if (-1 != index $ARG, "BEGINNING OF AUTOMATICALLY-GENERATED CONFIGURATION SECTION");
    
    print NEW_HEADER "$ARG";
}

close OLD_HEADER;
close NEW_HEADER;

rename "trash-new.h", "trash.h" or die "Unable to rename file trash-new.h to trash.h.\n";