View | Details | Raw Unified
Collapse All | Expand All

(-) flexbackup~ (-2 / +10 lines)
 Lines 269-274   if (($::mode !~ m/^(list|extract|restore Link Here  
    untie(%::index);
    untie(%::index);
}
}

            

              
              
system ('rm', '-rf', $cfg::tmpdir) if (defined($cfg::deltmpdir));

            

        
exit(0);
exit(0);

        

        
######################################################################
######################################################################

  

    

    

       Lines 2725-2730
      sub optioncheck { 
    
  Link Here 
    

  

        
    &checkvar(\$cfg::prefix,'prefix','exist','');
    &checkvar(\$cfg::prefix,'prefix','exist','');

        
    &checkvar(\$cfg::sprefix,'sprefix','exist','');
    &checkvar(\$cfg::sprefix,'sprefix','exist','');

        

            

              
              
    # Create a subdirectory inside /tmp

            

            

              
              
    if ($cfg::tmpdir eq '/tmp') {

            

            

              
              
       $cfg::tmpdir = $cfg::tmpdir .'/'.$$;

            

            

              
              
       mkdir ($cfg::tmpdir) || die "Can't create temporary directory, $!";

            

            

              
              
       $cfg::deltmpdir = 1;

            

            

              
              
    }

            

            

              
              

            

        
    if (@::errors) {
    if (@::errors) {

        
	print $::msg "Errors:\n";
	print $::msg "Errors:\n";

        
	while(@::errors) {
	while(@::errors) {

  

    

    

       Lines 5236-5243
      sub test_bufferprog { 
    
  Link Here 
    

  

        
    # Create a script which tests the buffer program
    # Create a script which tests the buffer program

        
    open(SCR,"> $tmp_script") || die;
    open(SCR,"> $tmp_script") || die;

        
    print SCR "#!/bin/sh\n";
    print SCR "#!/bin/sh\n";

            

              
    print SCR "tmp_data=/tmp/bufftest\$\$.txt\n";

              
    print SCR "tmp_data=\`tempfile\`\n";

            

            

              
    print SCR "tmp_err=/tmp/bufftest\$\$.err\n";

              
    print SCR "tmp_err=\`tempfile\`\n";

            

        
    print SCR "echo testme > \$tmp_data\n";
    print SCR "echo testme > \$tmp_data\n";

        
    print SCR "$buffer_cmd > /dev/null 2> \$tmp_err < \$tmp_data\n";
    print SCR "$buffer_cmd > /dev/null 2> \$tmp_err < \$tmp_data\n";

        
    print SCR "res=\$?\n";
    print SCR "res=\$?\n";