Commit a7dc4599 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

split curl and libcurl into two strings in the initial display

parent 583c2e2f

tests/runtests.pl

+9 −1
Original line number Original line Diff line number Diff line
@@ -372,11 +372,19 @@ sub displaydata { 
    unlink($memdump); # remove this if there was one left

    unlink($memdump); # remove this if there was one left





    my $version=`$CURL -V`;

    my $version=`$CURL -V`;

    chomp $version;



    my $curl = $version;



    $curl =~ s/^(.*)(libcurl.*)/$1/g;

    my $libcurl = $2;



    my $hostname=`hostname`;

    my $hostname=`hostname`;

    my $hosttype=`uname -a`;

    my $hosttype=`uname -a`;





    print "********* System characteristics ******** \n",

    print "********* System characteristics ******** \n",

    "* $version",

    "* $curl\n",

    "* $libcurl\n",

    "* Host: $hostname",

    "* Host: $hostname",

    "* System: $hosttype";

    "* System: $hosttype";