#416 Certain variable types crash the variables view in eclipse

v0.6.x
closed-fixed
Debugger (177)
5
2007-06-26
2007-06-25
Peter Grape
No

Hi!
I still have some problems viewing varibles in the debugger.

Here is a dump of the epic console debugger:
;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};

Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

DB<179> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};

Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

DB<180> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_content'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};

Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

DB<181> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_content'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};

Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

DB<182> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};

Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

DB<183> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};

Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

DB<184>

-----------------------------------------------
Here is the stack trace from the Eclipse system:

java.lang.StringIndexOutOfBoundsException: String index out of range: 114
at java.lang.String.charAt(Unknown Source)
at org.epic.debug.db.DumpedEntityReader.token(DumpedEntityReader.java:46)
at org.epic.debug.db.DumpedEntityReader.nextEntity(DumpedEntityReader.java:33)
at org.epic.debug.db.ArrayValue.parseArrayContent(ArrayValue.java:49)
at org.epic.debug.db.ArrayValue.<init>(ArrayValue.java:25)
at org.epic.debug.db.PerlVariable.getValue(PerlVariable.java:122)
at org.eclipse.debug.internal.ui.elements.adapters.VariableContentAdapter.hasChildren(VariableContentAdapter.java:44)
at org.eclipse.debug.internal.ui.viewers.provisional.AsynchronousContentAdapter.computeIsContainer(AsynchronousContentAdapter.java:126)
at org.eclipse.debug.internal.ui.viewers.provisional.AsynchronousContentAdapter$2.run(AsynchronousContentAdapter.java:72)
at org.eclipse.core.internal.jobs.Worker.run(Worker.java:58)

----------------------------------------------------

The whole stacktrace occurs when I click on a $soap variable,
Code looks like this:

$soap = SOAP::Lite
-> uri("urn:VFA")
-> proxy($proxy)
-> upload($upload_data);

And when I click on the $soap varible, which then seems to contain something that the debugger cannot handle, it crashes w. the above java stack trace.

If you need more info pls contact me at:
peter.grape<at>strandinterconnect.se or here (of course).

Regards
Peter

Discussion

  • Peter Grape

    Peter Grape - 2007-06-25

    Logged In: YES
    user_id=1821949
    Originator: YES

    I forgot, I am using the 0.6.10 version of EPIC eclipse 3.2.2, Perl 5.8.8.

     
  • Peter Grape

    Peter Grape - 2007-06-25
    • assigned_to: stephan_ruehl --> jploski
     
  • Jan Ploski

    Jan Ploski - 2007-06-25

    Logged In: YES
    user_id=86907
    Originator: NO

    Provide the output of

    use Data::Dumper;
    print Dumper($soap);

    as well as the output from the debugger console.

     
  • Peter Grape

    Peter Grape - 2007-06-26

    Logged In: YES
    user_id=1821949
    Originator: YES

    Hi Jan!
    Here is some more info.
    First a dump of the actual "$soap" data using Dumper as requested.
    -----------------------------------------------------------

    $VAR1 = bless( {
    '_content' => [
    'SOAP-ENV:Envelope',
    {
    'xmlns:xsi' => 'http://www.w3.org/1999/XMLSchema-instance',
    'xmlns:SOAP-ENC' => 'http://schemas.xmlsoap.org/soap/encoding/',
    'xmlns:SOAP-ENV' => 'http://schemas.xmlsoap.org/soap/envelope/',
    'xmlns:xsd' => 'http://www.w3.org/1999/XMLSchema',
    'SOAP-ENV:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/'
    },
    [
    [
    'SOAP-ENV:Body',
    {},
    [
    [
    'SOAP-ENV:Fault',
    {},
    [
    [
    'faultcode',
    {
    'xsi:type' => 'xsd:string'
    },
    'SOAP-ENV:Server',
    undef,
    'SOAP-ENV:Server',
    'faultcode',
    {
    'xsi:type' => bless( [
    'xsd:string',
    'http://www.w3.org/1999/XMLSchema',
    'string'
    ], 'SOAP::Lite::QNameValue' ),
    '{http://www.w3.org/1999/XMLSchema-instance}type' => '{http://www.w3.org/1999/XMLSchema}string'
    }
    ],
    [
    'faultstring',
    {
    'xsi:type' => 'xsd:string'
    },
    'C:/software/log/20070626-s03907.log Permission denied at C:\\Inetpub\\wwwroot\\sams\\service.cgi line 795.
    ',
    undef,
    'C:/software/log/20070626-s03907.log Permission denied at C:\\Inetpub\\wwwroot\\sams\\service.cgi line 795.
    ',
    'faultstring',
    {
    'xsi:type' => bless( [
    'xsd:string',
    'http://www.w3.org/1999/XMLSchema',
    'string'
    ], 'SOAP::Lite::QNameValue' ),
    '{http://www.w3.org/1999/XMLSchema-instance}type' => '{http://www.w3.org/1999/XMLSchema}string'
    }
    ]
    ],
    undef,
    {
    'faultcode' => 'SOAP-ENV:Server',
    'faultstring' => 'C:/software/log/20070626-s03907.log Permission denied at C:\\Inetpub\\wwwroot\\sams\\service.cgi line 795.
    '
    },
    '{http://schemas.xmlsoap.org/soap/envelope/}Fault',
    {}
    ]
    ],
    undef,
    {
    'Fault' => $VAR1->{'_content'}[2][0][2][0][4]
    },
    '{http://schemas.xmlsoap.org/soap/envelope/}Body',
    {}
    ]
    ],
    undef,
    {
    'Body' => $VAR1->{'_content'}[2][0][4]
    },
    '{http://schemas.xmlsoap.org/soap/envelope/}Envelope',
    {
    'SOAP-ENV:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/',
    '{http://schemas.xmlsoap.org/soap/envelope/}encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/'
    }
    ],
    '_current' => [
    $VAR1->{'_content'}
    ]
    }, 'SOAP::SOM' );
    -----------------------------------------------------------------------
    Second a console output:

    Loading DB routines from perl5db.pl version 1.28
    Editor support available.

    Enter h or `h h' for help, or `perldoc perldebug' for more help.

    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
    9: my $q = new CGI;
    DB<1> printf $DB::OUT "%vd", $^V;
    5.8.8
    DB<2> print $DB::OUT eval { require PadWalker; PadWalker->VERSION(0.08) }
    1.5
    DB<3> ;{
    my $file = <<'EOT';
    C:/Inetpub/wwwroot/sams/test/testclient.cgi
    EOT
    my $line = <<'EOT';
    148
    EOT
    my $cond = '';

    epic_breakpoints::add_breakpoint($file, $line, $cond);
    };

    DB<4> ;{
    my $file = <<'EOT';
    C:/Inetpub/wwwroot/sams/test/testclient.cgi
    EOT
    my $line = <<'EOT';
    116
    EOT
    my $cond = '';

    epic_breakpoints::add_breakpoint($file, $line, $cond);
    };

    DB<5> ;{
    my $file = <<'EOT';
    C:/Inetpub/wwwroot/sams/service.cgi
    EOT
    my $line = <<'EOT';
    303
    EOT
    my $cond = '';

    epic_breakpoints::add_breakpoint($file, $line, $cond);
    };

    DB<6> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
    9: my $q = new CGI;
    DB<7> T
    DB<8> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
    9: my $q = new CGI;
    DB<9> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
    9: my $q = new CGI;
    DB<10> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
    9: my $q = new CGI;
    DB<11> c
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
    116: my $upload_data = SOAP::Data->name('data' => \%data);
    DB<12> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
    116: my $upload_data = SOAP::Data->name('data' => \%data);
    DB<13> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
    116: my $upload_data = SOAP::Data->name('data' => \%data);
    DB<14> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
    116: my $upload_data = SOAP::Data->name('data' => \%data);
    DB<15> T
    DB<16> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
    116: my $upload_data = SOAP::Data->name('data' => \%data);
    DB<17> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;

    my $savout = select($DB::OUT);
    dumpvar_epic::dump_package_vars();
    select($savout);
    };

    3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
    3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
    3|$^E|1|1|17|SCALAR(0x1946530)|2|''|1|2
    3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
    3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
    3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
    3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
    3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
    3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
    7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
    9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
    3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
    3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
    14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
    3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
    2|$!|1|1|17|SCALAR(0x18402c0)|21|'Bad file descriptor'|2|21
    2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
    2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
    2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
    2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
    2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
    2|$/|1|1|16|SCALAR(0x276fc0)|3|'
    '|1|3
    2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
    2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
    -'|1|5
    2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
    2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
    2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
    2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
    2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
    4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
    4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
    4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
    4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
    18|FileHandle(STDERR)|1|1|17|SCALAR(0x22564cc)|11|'fileno(2)'|2|11
    17|FileHandle(STDIN)|1|1|17|SCALAR(0x22564d8)|11|'fileno(0)'|2|11
    18|FileHandle(STDOUT)|1|1|17|SCALAR(0x22564cc)|11|'fileno(1)'|2|11
    2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
    2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
    7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
    7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
    18|FileHandle(stderr)|1|1|17|SCALAR(0x22561d8)|11|'fileno(2)'|2|11
    17|FileHandle(stdin)|1|1|17|SCALAR(0x22561f0)|11|'fileno(0)'|2|11
    18|FileHandle(stdout)|1|1|17|SCALAR(0x22561d8)|11|'fileno(1)'|2|11
    2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
    2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6

    DB<18> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $savout = select($DB::OUT);
    dumpvar_epic::dump_lexical_vars($offset);
    select($savout);
    };

    7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
    6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
    2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
    4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
    9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
    5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
    9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
    7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3

    DB<19> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    ${$h->{'$q'}}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
    11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
    15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
    11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
    6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
    24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
    33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
    18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
    11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
    19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
    28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
    21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
    30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
    21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
    30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
    11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
    7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
    8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
    9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
    14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
    21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
    30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
    15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
    9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
    18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
    18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
    10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
    17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
    20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
    8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
    8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
    16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
    19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
    13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
    19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
    16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
    14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
    12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
    13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
    15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
    14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
    19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
    12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
    6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
    12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
    8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
    16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
    13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
    13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
    15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
    19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
    14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
    12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
    14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
    14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
    12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
    11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
    13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
    12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
    12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
    9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3

    DB<20> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%car'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
    29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
    14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
    7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
    15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
    24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
    17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
    26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
    17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
    26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
    7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
    3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
    4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
    5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
    10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
    17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
    26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
    11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
    5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
    14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
    14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
    6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
    13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
    16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
    4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
    4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3

    DB<21> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%reseller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
    4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
    4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
    6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
    10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
    5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
    3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3

    DB<22> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%customer'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
    10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
    4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
    10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
    7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
    5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
    3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
    4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
    6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
    5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
    10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
    3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3

    DB<23> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%data'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
    8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
    12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
    8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
    8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
    6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
    9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3

    DB<24> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%seller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
    7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
    5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
    4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
    6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
    5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3

    DB<25> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
    116: my $upload_data = SOAP::Data->name('data' => \%data);
    DB<26> n
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
    121: if ($q->param('button') eq "UPLOAD (T10)") {
    DB<27> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
    121: if ($q->param('button') eq "UPLOAD (T10)") {
    DB<28> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
    121: if ($q->param('button') eq "UPLOAD (T10)") {
    DB<29> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
    121: if ($q->param('button') eq "UPLOAD (T10)") {
    DB<30> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
    121: if ($q->param('button') eq "UPLOAD (T10)") {
    DB<31> T
    DB<32> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
    121: if ($q->param('button') eq "UPLOAD (T10)") {
    DB<33> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;

    my $savout = select($DB::OUT);
    dumpvar_epic::dump_package_vars();
    select($savout);
    };

    3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
    3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
    3|$^E|1|1|17|SCALAR(0x1946530)|67|'The system could not find the environment option that was entered'|2|67
    3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
    3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
    3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
    3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
    3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
    3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
    7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
    9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
    3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
    3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
    14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
    3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
    2|$!|1|1|17|SCALAR(0x18402c0)|21|'Bad file descriptor'|2|21
    2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
    2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
    2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
    2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
    2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
    2|$/|1|1|16|SCALAR(0x276fc0)|3|'
    '|1|3
    2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
    2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
    -'|1|5
    2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
    2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
    2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
    2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
    2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
    4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
    4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
    4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
    4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
    18|FileHandle(STDERR)|1|1|17|SCALAR(0x22e9bf0)|11|'fileno(2)'|2|11
    17|FileHandle(STDIN)|1|1|17|SCALAR(0x22e9b0c)|11|'fileno(0)'|2|11
    18|FileHandle(STDOUT)|1|1|17|SCALAR(0x22e9af4)|11|'fileno(1)'|2|11
    2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
    2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
    7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
    7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
    18|FileHandle(stderr)|1|1|17|SCALAR(0x22e9b24)|11|'fileno(2)'|2|11
    17|FileHandle(stdin)|1|1|17|SCALAR(0x22e9af4)|11|'fileno(0)'|2|11
    18|FileHandle(stdout)|1|1|17|SCALAR(0x22e9c14)|11|'fileno(1)'|2|11
    2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
    2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6

    DB<34> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $savout = select($DB::OUT);
    dumpvar_epic::dump_lexical_vars($offset);
    select($savout);
    };

    7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
    6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
    2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
    12|$upload_data|1|2|14|REF(0x190af60)|26|SOAP::Data=HASH(0x224872c)|3|...|1|3
    4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
    9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
    5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
    9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
    7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3

    DB<35> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    ${$h->{'$q'}}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
    11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
    15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
    11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
    6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
    24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
    33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
    18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
    11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
    19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
    28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
    21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
    30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
    21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
    30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
    11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
    7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
    8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
    9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
    14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
    21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
    30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
    15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
    9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
    18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
    18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
    10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
    17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
    20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
    8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
    8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
    16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
    19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
    13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
    19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
    16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
    14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
    12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
    13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
    15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
    14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
    19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
    12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
    6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
    12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
    8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
    16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
    13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
    13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
    15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
    19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
    14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
    12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
    14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
    14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
    12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
    11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
    13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
    12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
    12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
    9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3

    DB<36> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    ${$h->{'$upload_data'}}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    5|_attr|1|2|14|REF(0x23092b4)|15|HASH(0x224845c)|3|...|1|3
    5|_name|1|1|17|SCALAR(0x2302d20)|6|'data'|1|6
    10|_signature|1|2|14|REF(0x23094f4)|16|ARRAY(0x2309464)|3|...|1|3
    6|_value|1|2|14|REF(0x2309554)|16|ARRAY(0x23103e4)|3|...|1|3

    DB<37> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%car'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
    29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
    14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
    7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
    15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
    24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
    17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
    26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
    17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
    26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
    7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
    3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
    4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
    5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
    10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
    17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
    26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
    11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
    5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
    14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
    14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
    6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
    13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
    16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
    4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
    4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3

    DB<38> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%customer'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
    10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
    4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
    10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
    7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
    5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
    3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
    4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
    6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
    5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
    10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
    3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3

    DB<39> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%data'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
    8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
    12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
    8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
    8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
    6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
    9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3

    DB<40> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%reseller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
    4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
    4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
    6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
    10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
    5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
    3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3

    DB<41> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%seller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
    7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
    5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
    4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
    6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
    5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3

    DB<42> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
    121: if ($q->param('button') eq "UPLOAD (T10)") {
    DB<43> n
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
    122: $soap = SOAP::Lite
    123: -> uri("urn:VFA")
    124: -> proxy($proxy)
    125: -> upload($upload_data);
    DB<44> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
    122: $soap = SOAP::Lite
    123: -> uri("urn:VFA")
    124: -> proxy($proxy)
    125: -> upload($upload_data);
    DB<45> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
    122: $soap = SOAP::Lite
    123: -> uri("urn:VFA")
    124: -> proxy($proxy)
    125: -> upload($upload_data);
    DB<46> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
    122: $soap = SOAP::Lite
    123: -> uri("urn:VFA")
    124: -> proxy($proxy)
    125: -> upload($upload_data);
    DB<47> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
    122: $soap = SOAP::Lite
    123: -> uri("urn:VFA")
    124: -> proxy($proxy)
    125: -> upload($upload_data);
    DB<48> T
    DB<49> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
    122: $soap = SOAP::Lite
    123: -> uri("urn:VFA")
    124: -> proxy($proxy)
    125: -> upload($upload_data);
    DB<50> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;

    my $savout = select($DB::OUT);
    dumpvar_epic::dump_package_vars();
    select($savout);
    };

    3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
    3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
    3|$^E|1|1|17|SCALAR(0x1946530)|67|'The system could not find the environment option that was entered'|2|67
    3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
    3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
    3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
    3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
    3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
    3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
    7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
    9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
    3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
    3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
    14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
    3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
    2|$!|1|1|17|SCALAR(0x18402c0)|21|'Bad file descriptor'|2|21
    2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
    2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
    2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
    2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
    2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
    2|$/|1|1|16|SCALAR(0x276fc0)|3|'
    '|1|3
    2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
    2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
    -'|1|5
    2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
    2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
    2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
    2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
    2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
    4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
    4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
    4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
    4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
    18|FileHandle(STDERR)|1|1|17|SCALAR(0x22e9854)|11|'fileno(2)'|2|11
    17|FileHandle(STDIN)|1|1|17|SCALAR(0x22e977c)|11|'fileno(0)'|2|11
    18|FileHandle(STDOUT)|1|1|17|SCALAR(0x22e9764)|11|'fileno(1)'|2|11
    2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
    2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
    7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
    7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
    18|FileHandle(stderr)|1|1|17|SCALAR(0x22e983c)|11|'fileno(2)'|2|11
    17|FileHandle(stdin)|1|1|17|SCALAR(0x22e9824)|11|'fileno(0)'|2|11
    18|FileHandle(stdout)|1|1|17|SCALAR(0x22e97dc)|11|'fileno(1)'|2|11
    2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
    2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6

    DB<51> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $savout = select($DB::OUT);
    dumpvar_epic::dump_lexical_vars($offset);
    select($savout);
    };

    7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
    6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
    2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
    12|$upload_data|1|2|14|REF(0x190af60)|26|SOAP::Data=HASH(0x224872c)|3|...|1|3
    4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
    9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
    5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
    9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
    7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3

    DB<52> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    ${$h->{'$q'}}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
    11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
    15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
    11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
    6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
    24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
    33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
    18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
    11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
    19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
    28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
    21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
    30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
    21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
    30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
    11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
    7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
    8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
    9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
    14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
    21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
    30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
    15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
    9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
    18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
    18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
    10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
    17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
    20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
    8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
    8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
    16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
    19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
    13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
    19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
    16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
    14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
    12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
    13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
    15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
    14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
    19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
    12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
    6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
    12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
    8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
    16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
    13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
    13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
    15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
    19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
    14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
    12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
    14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
    14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
    12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
    11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
    13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
    12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
    12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
    9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3

    DB<53> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    ${$h->{'$upload_data'}}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    5|_attr|1|2|14|REF(0x23092b4)|15|HASH(0x224845c)|3|...|1|3
    5|_name|1|1|17|SCALAR(0x2302d20)|6|'data'|1|6
    10|_signature|1|2|14|REF(0x23094f4)|16|ARRAY(0x2309464)|3|...|1|3
    6|_value|1|2|14|REF(0x2309554)|16|ARRAY(0x23103e4)|3|...|1|3

    DB<54> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%seller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
    7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
    5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
    4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
    6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
    5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3

    DB<55> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%car'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
    29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
    14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
    7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
    15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
    24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
    17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
    26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
    17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
    26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
    7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
    3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
    4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
    5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
    10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
    17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
    26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
    11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
    5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
    14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
    14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
    6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
    13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
    16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
    4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
    4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3

    DB<56> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%customer'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
    10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
    4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
    10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
    7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
    5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
    3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
    4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
    6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
    5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
    10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
    3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3

    DB<57> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%data'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
    8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
    12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
    8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
    8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
    6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
    9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3

    DB<58> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%reseller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
    4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
    4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
    6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
    10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
    5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
    3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3

    DB<59> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
    122: $soap = SOAP::Lite
    123: -> uri("urn:VFA")
    124: -> proxy($proxy)
    125: -> upload($upload_data);
    DB<60> n
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
    127: print "SOAP contents:" . Dumper($soap);
    DB<61> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
    127: print "SOAP contents:" . Dumper($soap);
    DB<62> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
    127: print "SOAP contents:" . Dumper($soap);
    DB<63> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
    127: print "SOAP contents:" . Dumper($soap);
    DB<64> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
    127: print "SOAP contents:" . Dumper($soap);
    DB<65> T
    DB<66> .
    main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
    127: print "SOAP contents:" . Dumper($soap);
    DB<67> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;

    my $savout = select($DB::OUT);
    dumpvar_epic::dump_package_vars();
    select($savout);
    };

    3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
    3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
    3|$^E|1|1|17|SCALAR(0x1946530)|67|'The system could not find the environment option that was entered'|2|67
    3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
    3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
    3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
    3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
    3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
    3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
    7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
    9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
    3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
    3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
    14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
    3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
    2|$!|1|1|17|SCALAR(0x18402c0)|2|''|1|2
    2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
    2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
    2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
    2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
    2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
    2|$/|1|1|16|SCALAR(0x276fc0)|3|'
    '|1|3
    2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
    2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
    -'|1|5
    2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
    2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
    2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
    2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
    2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
    4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
    4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
    4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
    4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
    18|FileHandle(STDERR)|1|1|17|SCALAR(0x26903a0)|11|'fileno(2)'|2|11
    17|FileHandle(STDIN)|1|1|17|SCALAR(0x269037c)|11|'fileno(0)'|2|11
    18|FileHandle(STDOUT)|1|1|17|SCALAR(0x2690388)|11|'fileno(1)'|2|11
    2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
    2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
    7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
    7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
    5|$soap|1|2|14|REF(0x190b038)|25|SOAP::SOM=HASH(0x268a914)|3|'1'|1|3
    18|FileHandle(stderr)|1|1|17|SCALAR(0x26903ac)|11|'fileno(2)'|2|11
    17|FileHandle(stdin)|1|1|17|SCALAR(0x26902f8)|11|'fileno(0)'|2|11
    18|FileHandle(stdout)|1|1|17|SCALAR(0x2690388)|11|'fileno(1)'|2|11
    2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
    2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6

    DB<68> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $savout = select($DB::OUT);
    dumpvar_epic::dump_lexical_vars($offset);
    select($savout);
    };

    7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
    6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
    2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
    12|$upload_data|1|2|14|REF(0x190af60)|26|SOAP::Data=HASH(0x224872c)|3|...|1|3
    4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
    9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
    5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
    9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
    7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3

    DB<69> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    \%{$main::soap}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    8|_content|1|2|14|REF(0x268b34c)|16|ARRAY(0x264ec74)|3|...|1|3
    8|_current|1|2|14|REF(0x268e23c)|16|ARRAY(0x264a5a0)|3|...|1|3

    DB<70> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    ${$h->{'$q'}}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
    11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
    15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
    11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
    6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
    24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
    33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
    18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
    11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
    19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
    28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
    21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
    30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
    21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
    30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
    11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
    7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
    8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
    9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
    14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
    21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
    30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
    15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
    9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
    18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
    18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
    10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
    17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
    20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
    8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
    8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
    16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
    19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
    13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
    19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
    16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
    14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
    12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
    13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
    15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
    14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
    19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
    12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
    6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
    12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
    8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
    16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
    13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
    13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
    15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
    19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
    14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
    12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
    14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
    14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
    12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
    11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
    13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
    12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
    12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
    9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3

    DB<71> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%reseller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
    4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
    4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
    6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
    10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
    5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
    3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3

    DB<72> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    ${$h->{'$upload_data'}}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    5|_attr|1|2|14|REF(0x23092b4)|15|HASH(0x224845c)|3|...|1|3
    5|_name|1|1|17|SCALAR(0x2302d20)|6|'data'|1|6
    10|_signature|1|2|14|REF(0x23094f4)|16|ARRAY(0x24bf440)|3|...|1|3
    6|_value|1|2|14|REF(0x2309554)|16|ARRAY(0x23103e4)|3|...|1|3

    DB<73> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%car'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
    29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
    14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
    7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
    15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
    24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
    17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
    26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
    17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
    26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
    7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
    3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
    4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
    5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
    10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
    17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
    26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
    11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
    5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
    14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
    14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
    6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
    13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
    16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
    4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
    4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3

    DB<74> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%customer'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
    10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
    4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
    10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
    7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
    5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
    3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
    4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
    6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
    5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
    10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
    3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3

    DB<75> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%data'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
    20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
    8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
    12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
    8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
    8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
    6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
    9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3

    DB<76> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    $h->{'%seller'}
    EOT
    my $subref = \&dumpvar_epic::dump_hash_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
    7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
    5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
    4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
    6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
    5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3

    DB<77> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    \%{$main::soap}->{'_current'}
    EOT
    my $subref = \&dumpvar_epic::dump_array_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

    DB<78> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    \%{$main::soap}->{'_content'}
    EOT
    my $subref = \&dumpvar_epic::dump_array_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

    DB<79> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    \%{$main::soap}->{'_content'}
    EOT
    my $subref = \&dumpvar_epic::dump_array_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

    DB<80> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    \%{$main::soap}->{'_current'}
    EOT
    my $subref = \&dumpvar_epic::dump_array_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

    DB<81> ;{
    do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;

    my $offset = 0;
    my $varexpr = <<'EOT';
    \%{$main::soap}->{'_current'}
    EOT
    my $subref = \&dumpvar_epic::dump_array_expr;
    my $savout = select($DB::OUT);
    $subref->($offset, $varexpr);
    select($savout);
    };

    Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.

    DB<82>
    -------------------------------------------------------------------------------

    Hope this helps..., it helped me anyway since I now saw the fault why my SOAP client did not work :-)

    I am an experienced Java developer, but a Perl newbie.

    /Peter

     
  • Jan Ploski

    Jan Ploski - 2007-06-26

    Logged In: YES
    user_id=86907
    Originator: NO

    Thanks for the info.
    Fixed in 0.6.11.

     
  • Jan Ploski

    Jan Ploski - 2007-06-26
    • status: open --> closed-fixed
     

Log in to post a comment.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks