mirror of
				https://github.com/fspc/gbootroot.git
				synced 2025-11-04 08:15:36 -05:00 
			
		
		
		
	Modifications to allow gBootRoot changes to work
This commit is contained in:
		
							parent
							
								
									cab23dfbf1
								
							
						
					
					
						commit
						0087f77d76
					
				
							
								
								
									
										10
									
								
								Yard.pm
									
									
									
									
									
								
							
							
						
						
									
										10
									
								
								Yard.pm
									
									
									
									
									
								
							@ -31,9 +31,9 @@ package Yard;
 | 
				
			|||||||
use vars qw(@ISA @EXPORT %EXPORT_TAGS);
 | 
					use vars qw(@ISA @EXPORT %EXPORT_TAGS);
 | 
				
			||||||
use Exporter;
 | 
					use Exporter;
 | 
				
			||||||
@ISA = qw(Exporter);
 | 
					@ISA = qw(Exporter);
 | 
				
			||||||
@EXPORT =  qw(start_logging_output kernel_version_check 
 | 
					@EXPORT =  qw(start_logging_output info kernel_version_check 
 | 
				
			||||||
              read_contents_file extra_links library_dependencies hard_links 
 | 
					              read_contents_file extra_links library_dependencies hard_links 
 | 
				
			||||||
              space_check create_filesystem);
 | 
					              space_check create_filesystem find_file_in_path sys);
 | 
				
			||||||
 | 
					
 | 
				
			||||||
use strict;
 | 
					use strict;
 | 
				
			||||||
use File::Basename;
 | 
					use File::Basename;
 | 
				
			||||||
@ -889,15 +889,15 @@ sub start_logging_output {
 | 
				
			|||||||
  print "Logging output to $logfile\n";
 | 
					  print "Logging output to $logfile\n";
 | 
				
			||||||
}
 | 
					}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
#####  Same as system() but obeys $::verbosity setting for both STDOUT
 | 
					#####  Same as system() but obeys $verbosity setting for both STDOUT
 | 
				
			||||||
#####  and STDERR.
 | 
					#####  and STDERR.
 | 
				
			||||||
sub sys {
 | 
					sub sys {
 | 
				
			||||||
  open(SYS, "@_ 2>&1 |") or die "open on sys(@_) failed: $!";
 | 
					  open(SYS, "@_ 2>&1 |") or die "open on sys(@_) failed: $!";
 | 
				
			||||||
  while (<SYS>) {
 | 
					  while (<SYS>) {
 | 
				
			||||||
    print LOGFILE;
 | 
					    print LOGFILE;
 | 
				
			||||||
    print if $::verbosity > 0;
 | 
					    print if $verbosity > 0;
 | 
				
			||||||
  }
 | 
					  }
 | 
				
			||||||
  close(SYS) or die "Command failed: @_\nSee logfile for error message.\n";
 | 
					  close(SYS) or return $?; 
 | 
				
			||||||
  0;				# like system()
 | 
					  0;				# like system()
 | 
				
			||||||
}
 | 
					}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user