improving helper.pl
This commit is contained in:
		
							parent
							
								
									63e6f7647f
								
							
						
					
					
						commit
						283ea0c426
					
				@ -257,7 +257,9 @@ sub process_makefiles {
 | 
				
			|||||||
sub die_usage {
 | 
					sub die_usage {
 | 
				
			||||||
  die <<"MARKER";
 | 
					  die <<"MARKER";
 | 
				
			||||||
  usage: $0 --check-source
 | 
					  usage: $0 --check-source
 | 
				
			||||||
 | 
					         $0 --check-defines
 | 
				
			||||||
         $0 --check-makefiles
 | 
					         $0 --check-makefiles
 | 
				
			||||||
 | 
					         $0 --check-all
 | 
				
			||||||
         $0 --update-makefiles
 | 
					         $0 --update-makefiles
 | 
				
			||||||
MARKER
 | 
					MARKER
 | 
				
			||||||
}
 | 
					}
 | 
				
			||||||
@ -265,14 +267,15 @@ MARKER
 | 
				
			|||||||
GetOptions( "check-source"     => \my $check_source,
 | 
					GetOptions( "check-source"     => \my $check_source,
 | 
				
			||||||
            "check-defines"    => \my $check_defines,
 | 
					            "check-defines"    => \my $check_defines,
 | 
				
			||||||
            "check-makefiles"  => \my $check_makefiles,
 | 
					            "check-makefiles"  => \my $check_makefiles,
 | 
				
			||||||
 | 
					            "check-all"        => \my $check_all,
 | 
				
			||||||
            "update-makefiles" => \my $update_makefiles,
 | 
					            "update-makefiles" => \my $update_makefiles,
 | 
				
			||||||
            "help"             => \my $help
 | 
					            "help"             => \my $help
 | 
				
			||||||
          ) or die_usage;
 | 
					          ) or die_usage;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
my $failure;
 | 
					my $failure;
 | 
				
			||||||
$failure ||= check_source()       if $check_source;
 | 
					$failure ||= check_source()       if $check_all || $check_source;
 | 
				
			||||||
$failure ||= check_defines()      if $check_defines;
 | 
					$failure ||= check_defines()      if $check_all || $check_defines;
 | 
				
			||||||
$failure ||= process_makefiles(0) if $check_makefiles;
 | 
					$failure ||= process_makefiles(0) if $check_all || $check_makefiles;
 | 
				
			||||||
$failure ||= process_makefiles(1) if $update_makefiles;
 | 
					$failure ||= process_makefiles(1) if $update_makefiles;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
die_usage unless defined $failure;
 | 
					die_usage unless defined $failure;
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user