File: remove-potcdate.pl

package info (click to toggle)
debconf 1.5.92
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 5,176 kB
  • sloc: perl: 8,500; sh: 262; python: 182; makefile: 147
file content (16 lines) | stat: -rwxr-xr-x 203 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#! /usr/bin/perl -n

use warnings;
use strict;

my $seen_potcdate;

BEGIN {
    $seen_potcdate = 0;
}

if (not $seen_potcdate and /^"POT-Creation-Date: .*"/) {
    $seen_potcdate = 1;
    next;
}
print;