25 if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul

    25 if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul

    26 goto endofperl

    26 goto endofperl

    27 @rem ';

    27 @rem ';

    28 #!perl

    28 #!perl

    29 #line 15

    29 #line 15

    31 use FindBin;

    30 use FindBin;

    32 

    31 

    33 my $SELF_NAME = "set-rvct";

    32 my $SELF_NAME = "set-rvct";

    34 

    33 

    35 my $self_path;

    34 my $self_path;