+++ /dev/null
-#!/usr/bin/perl
-open(MAIN, ">","./hxsp.pl")|| die "Can't open ./hxsp.pl : $!";
-my $pd = "./splitted/";
-my @pieces = ("0.init.p.pl","1.globvars.p.pl","2.start.p.pl",
- "3.daemon.p.pl","4.hash.p.pl","5.libxslt.p.pl",
- "6.commands.p.pl","7.qsparse.p.pl",
- "8.strrep.p.pl","9.load.p.pl");
-
-foreach $p (@pieces)
-{
- open(P, "$pd$p") || die "Can't open $pd$p : $!";
- while(my $line = <P>) { print MAIN $line; }
- close P;
- print MAIN "\n";
-}
-
-close MAIN;