path separators so switch them to /'s
git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@84794
13f79535-47bb-0310-9956-
ffa450edef68
#!/usr/bin/perl
#
-# $Id: mkdep.perl,v 1.1 2000/01/11 13:10:59 sascha Exp $
+# $Id: mkdep.perl,v 1.2 2000/03/19 13:25:33 bjh Exp $
#
# Created: Thu Aug 15 11:57:33 1996 too
# Last modified: Mon Dec 27 09:23:56 1999 too
&initinit;
while (<F>)
{
+ s/\\\\/\//g;
next unless (/^# [0-9]* "(.*\.h)"/);
next if ($1 =~ /^\//);