work.pm (9780544f) | work.pm (86e1cf34) |
---|---|
1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 48 unchanged lines hidden (view full) --- 57 58 par2script::remover::remove_leading_and_ending_whitespaces(\$list); 59 push(@{$locallistref}, $list); 60 61 return $locallistref; 62} 63 64############################################ | 1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 48 unchanged lines hidden (view full) --- 57 58 par2script::remover::remove_leading_and_ending_whitespaces(\$list); 59 push(@{$locallistref}, $list); 60 61 return $locallistref; 62} 63 64############################################ |
65# setting list of include pathes | 65# setting list of include paths |
66############################################ 67 68sub setincludes 69{ 70 my ($list) = @_; 71 | 66############################################ 67 68sub setincludes 69{ 70 my ($list) = @_; 71 |
72 # input is the comma separated list of include pathes | 72 # input is the comma separated list of include paths |
73 74 my $includes = analyze_comma_separated_list($list); 75 76 return $includes; 77} 78 79############################################ 80# setting list of all par files --- 41 unchanged lines hidden (view full) --- 122 $foundparfile = 1; 123 $oneparfile = $parfile; 124 last; 125 } 126 } 127 128 if ( ! $foundparfile ) 129 { | 73 74 my $includes = analyze_comma_separated_list($list); 75 76 return $includes; 77} 78 79############################################ 80# setting list of all par files --- 41 unchanged lines hidden (view full) --- 122 $foundparfile = 1; 123 $oneparfile = $parfile; 124 last; 125 } 126 } 127 128 if ( ! $foundparfile ) 129 { |
130 die "ERROR: Could not find parfile ${$parfiles}[$i] in includes pathes: $par2script::globals::includepathlist !\n"; | 130 die "ERROR: Could not find parfile ${$parfiles}[$i] in includes paths: $par2script::globals::includepathlist !\n"; |
131 } 132 } 133} 134 135###################################################### 136# collecting one special item in the par files and 137# including it into the "definitions" hash 138###################################################### --- 274 unchanged lines hidden --- | 131 } 132 } 133} 134 135###################################################### 136# collecting one special item in the par files and 137# including it into the "definitions" hash 138###################################################### --- 274 unchanged lines hidden --- |