-case "$bincompat3" in
-y*)
- global=/tmp/exp$$g
- interp=/tmp/exp$$i
- compat3=/tmp/exp$$c
- grep '^[A-Za-z]' global.sym | sort >$global
- grep '^[A-Za-z]' interp.sym | sort >$interp
- grep '^[A-Za-z]' compat3.sym | sort >$compat3
- comm -23 $global $compat3 | sed 's/^/Perl_/' >> perl.exp
- comm -12 $interp $compat3 | sed 's/^/Perl_/' >> perl.exp
- comm -12 $global $compat3 >> perl.exp
- comm -23 $interp $compat3 >> perl.exp
- rm -f $global $interp $compat3
- ;;
-*)
- sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym interp.sym >> perl.exp
- ;;
-esac
+# No compat3 since 5.004_50.
+# No interp.sym since 5.005_03.
+# perlio.sym will added later if needed.
+
+syms="global.sym thread.sym"
+
+sed -n '/^[A-Za-z]/ s/^/Perl_/p' $syms >> perl.exp
+
+sed -n 's/^PERLVAR.*(G\([^[,]*\).*/PL_\1/p' perlvars.h >> perl.exp
+sed -n 's/^PERLVAR.*(I\([^[,]*\).*/PL_\1/p' intrpvar.h >> perl.exp
+sed -n 's/^PERLVAR.*(T\([^[,]*\).*/PL_\1/p' thrdvar.h >> perl.exp
+
+#
+# If we use the PerlIO abstraction layer, add its symbols.
+#
+
+if [ "X$useperlio" = "Xdefine" ]
+then
+ grep '^[A-Za-z]' perlio.sym >> perl.exp
+fi