This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
makedepend VOS fix from Paul Green.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 2 Jan 2002 16:50:22 +0000 (16:50 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 2 Jan 2002 16:50:22 +0000 (16:50 +0000)
p4raw-id: //depot/perl@14018

makedepend.SH

index 0355810..19c90d6 100755 (executable)
@@ -103,23 +103,14 @@ $MAKE clist || ($echo "Searching for .c files..."; \
        $echo *.c | $tr ' ' $trnl | $egrep -v '\*' >.clist)
 for file in `$cat .clist`; do
 # for file in `cat /dev/null`; do
-       if [ "$osname" = uwin ]; then
-               uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g"
-       else
-               if [ "$osname" = os2 ]; then
-                       uwinfix="-e s,\\\\\\\\,/,g"
-               else
-                       if [ "$archname" = cygwin ]; then
-                               uwinfix="-e s,\\\\\\\\,/,g"
-                       else
-                               if [ "$osname" = posix-bc ]; then
-                                       uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/"
-                               else
-                                       uwinfix=
-                               fi
-                       fi
-               fi
-       fi
+    case "$osname" in
+    uwin)     uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g" ;;
+    os2)      uwinfix="-e s,\\\\\\\\,/,g" ;;
+    cygwin)   uwinfix="-e s,\\\\\\\\,/,g" ;;
+    posix-bc) uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/" ;;
+    vos)      uwinfix="-e s/\#/\\\#/" ;;
+    *)        uwinfix="" ;;
+    esac
     case "$file" in
     *.c) filebase=`basename $file .c` ;;
     *.y) filebase=`basename $file .y` ;;