diff options
Diffstat (limited to 'openmp/runtime/tools/lib')
| -rw-r--r-- | openmp/runtime/tools/lib/Uname.pm | 12 | ||||
| -rw-r--r-- | openmp/runtime/tools/lib/tools.pm | 6 |
2 files changed, 9 insertions, 9 deletions
diff --git a/openmp/runtime/tools/lib/Uname.pm b/openmp/runtime/tools/lib/Uname.pm index 9556884cfbd..4eb6991f273 100644 --- a/openmp/runtime/tools/lib/Uname.pm +++ b/openmp/runtime/tools/lib/Uname.pm @@ -58,7 +58,7 @@ my @aux = qw{ host_name domain_name }, map( "operating_system_$_", qw{ name release codename description } ) ); - # Auxillary properties. + # Auxiliary properties. my @all = ( @base, @aux ); # All the properties. my @meta = qw{ base_names all_names value }; @@ -209,7 +209,7 @@ if ( 0 ) { if ( 0 ) { } elsif ( $values{ kernel_name } eq "Linux" ) { $values{ operating_system } = "GNU/Linux"; - my $release; # Name of choosen "*-release" file. + my $release; # Name of chosen "*-release" file. my $bulk; # Content of release file. # On Ubuntu, lsb-release is quite informative, e. g.: # DISTRIB_ID=Ubuntu @@ -454,7 +454,7 @@ C</bin/uname> and C<POSIX::uname()>. $hardware_platform = Uname::hardware_platform(); $operating_system = Uname::operating_system(); - # Auxillary property functions. + # Auxiliary property functions. $host_name = Uname::host_name(); $domain_name = Uname::domain_name(); $os_name = Uname::operating_system_name(); @@ -547,11 +547,11 @@ One of: C<GNU/Linux>, C<OS X*>, or C<MS Windows>. =back -=head2 Auxillary Functions +=head2 Auxiliary Functions -Auxillary functions extends base functions with information not reported by C<uname> program. +Auxiliary functions extends base functions with information not reported by C<uname> program. -Auxillary functions collect information from different sources. For example, on OS X*, they may +Auxiliary functions collect information from different sources. For example, on OS X*, they may call C<sw_vers> program to find out OS release; on Linux* OS they may parse C</etc/redhat-release> file, etc. diff --git a/openmp/runtime/tools/lib/tools.pm b/openmp/runtime/tools/lib/tools.pm index 23feb505332..ce5cf4408e5 100644 --- a/openmp/runtime/tools/lib/tools.pm +++ b/openmp/runtime/tools/lib/tools.pm @@ -544,7 +544,7 @@ sub question($;\$$) { my $a = ( defined( $answer ) ? $$answer : undef ); if ( ref( $choices ) eq "Regexp" ) { - # It is aready a regular expression, do nothing. + # It is already a regular expression, do nothing. } elsif ( defined( $choices ) ) { # Convert string to a regular expression. $choices = qr/[@{ [ quotemeta( $choices ) ] }]/i; @@ -705,7 +705,7 @@ Look for all occurenses of "cp" in the PATH: my @cps = which( "cp", -all => 1 ); -Look for the first occurence of "icc" in the specified directories: +Look for the first occurrence of "icc" in the specified directories: my $icc = which( "icc", -dirs => [ ".", "/usr/local/bin", "/usr/bin", "/bin" ] ); @@ -1163,7 +1163,7 @@ sub del_dir($@) { Change current directory. -If any error occured, error issues and script exits. +If any error occurred, error issues and script exits. =cut |
