3 # Copyright (C) 2008 Anders Kaseorg <andersk@mit.edu>,
4 # Jeffrey Brian Arnold <jbarnold@mit.edu>,
5 # Tim Abbott <tabbott@mit.edu>
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License, version 2.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
26 my $dir = abs_path
(dirname
($0) . "/ksplice-patch");
29 if (/^-ksplice-cflags-api=1$/) {
31 push @cmd, qw(-D__DATE__="<{DATE...}>" -D__TIME__="<{TIME}>");
37 my $pid = open3
('<&STDIN', '>&STDOUT', \
*ERROR
, @cmd);
39 next if /^<command[- ]line>(?::\d+:\d+)?: warning: "(?:__DATE__|__TIME__)" redefined$/;
43 waitpid($pid, 0) == $pid and ($?
& 127) == 0 or die;