1a8d3c348SJürgen Schmidt#************************************************************** 2a8d3c348SJürgen Schmidt# 3a8d3c348SJürgen Schmidt# Licensed to the Apache Software Foundation (ASF) under one 4a8d3c348SJürgen Schmidt# or more contributor license agreements. See the NOTICE file 5a8d3c348SJürgen Schmidt# distributed with this work for additional information 6a8d3c348SJürgen Schmidt# regarding copyright ownership. The ASF licenses this file 7a8d3c348SJürgen Schmidt# to you under the Apache License, Version 2.0 (the 8a8d3c348SJürgen Schmidt# "License"); you may not use this file except in compliance 9a8d3c348SJürgen Schmidt# with the License. You may obtain a copy of the License at 10a8d3c348SJürgen Schmidt# 11a8d3c348SJürgen Schmidt# http://www.apache.org/licenses/LICENSE-2.0 12a8d3c348SJürgen Schmidt# 13a8d3c348SJürgen Schmidt# Unless required by applicable law or agreed to in writing, 14a8d3c348SJürgen Schmidt# software distributed under the License is distributed on an 15a8d3c348SJürgen Schmidt# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16a8d3c348SJürgen Schmidt# KIND, either express or implied. See the License for the 17a8d3c348SJürgen Schmidt# specific language governing permissions and limitations 18a8d3c348SJürgen Schmidt# under the License. 19a8d3c348SJürgen Schmidt# 20a8d3c348SJürgen Schmidt#************************************************************** 21a8d3c348SJürgen Schmidt 22a8d3c348SJürgen Schmidt#### module lookup 23a8d3c348SJürgen Schmidtuse File::Basename; 24a8d3c348SJürgen Schmidt 25a8d3c348SJürgen Schmidtmy @lib_dirs; 26a8d3c348SJürgen SchmidtBEGIN { 27a8d3c348SJürgen Schmidt if ( !defined($ENV{SOLARENV}) ) { 28a8d3c348SJürgen Schmidt die "No environment found (environment variable SOLARENV is undefined)"; 29a8d3c348SJürgen Schmidt } 30a8d3c348SJürgen Schmidt push(@lib_dirs, "$ENV{SOLARENV}/bin/modules"); 31a8d3c348SJürgen Schmidt} 32a8d3c348SJürgen Schmidtuse lib (@lib_dirs); 33a8d3c348SJürgen Schmidt 34*f8d20be8SJim Jagielskiuse RepoRevision; 35a8d3c348SJürgen Schmidt 36a8d3c348SJürgen Schmidtmy $scm_root_dir=dirname($ENV{SRC_ROOT}); 37a8d3c348SJürgen Schmidt 38*f8d20be8SJim Jagielskiprint RepoRevision::DetectRevisionId("$scm_root_dir"); 39