Fix helpers module path lookup on newer Perl versions.

alliedmodders · Dec 13, 2021 · 547ac5b · 547ac5b
1 parent 7328ce6
commit 547ac5b
Show file tree

Hide file tree

Showing 4 changed files with 73 additions and 65 deletions.
diff --git a/tools/buildbot/bootstrap.pl b/tools/buildbot/bootstrap.pl
@@ -9,6 +9,8 @@
 my ($myself, $path) = fileparse($0);
 chdir($path);
 
+use FindBin;
+use lib $FindBin::Bin;
 require 'helpers.pm';
 
 #Go back to tree root.

diff --git a/tools/buildbot/package.pl b/tools/buildbot/package.pl
@@ -29,6 +29,8 @@
 my ($myself, $path) = fileparse($0);
 chdir($path);
 
+use FindBin;
+use lib $FindBin::Bin;
 require 'helpers.pm';
 
 #Switch to the output folder.

diff --git a/tools/buildbot/startbuild.pl b/tools/buildbot/startbuild.pl
@@ -6,6 +6,8 @@
 my ($myself, $path) = fileparse($0);
 chdir($path);
 
+use FindBin;
+use lib $FindBin::Bin;
 require 'helpers.pm';
 
 chdir('../../../OUTPUT');

diff --git a/tools/buildbot/symstore.pl b/tools/buildbot/symstore.pl
@@ -1,65 +1,67 @@
-#!/usr/bin/perl
-
-use File::Basename;
-
-my ($myself, $path) = fileparse($0);
-chdir($path);
-
-require 'helpers.pm';
-
-chdir('..');
-chdir('..');
-
-open(PDBLOG, '../OUTPUT/pdblog.txt') or die "Could not open pdblog.txt: $!\n";
-
-#Get version info
-my ($version);
-$version = Build::ProductVersion(Build::PathFormat('product.version'));
-$version =~ s/-dev//g;
-$version .= '-git' . Build::GitRevNum('.');
-
-my ($build_type);
-$build_type = Build::GetBuildType(Build::PathFormat('tools/buildbot/build_type'));
-
-if ($build_type eq "dev")
-{
-	$build_type = "buildbot";
-}
-elsif ($build_type eq "rel")
-{
-	$build_type = "release";
-}
-
-my ($line);
-while (<PDBLOG>)
-{
-	$line = $_;
-	$line =~ s/\.pdb/\*/;
-	chomp $line;
-	Build::Command("symstore add /r /f \"..\\OUTPUT\\$line\" /s \"S:\\sourcemod\" /t \"SourceMod\" /v \"$version\" /c \"$build_type\"");
-}
-
-close(PDBLOG);
-
-#Lowercase DLLs.  Sigh.
-my (@files);
-opendir(DIR, "S:\\sourcemod") or die "Could not open sourcemod symbol folder: $!\n";
-@files = readdir(DIR);
-closedir(DIR);
-
-my ($i, $j, $file, @subdirs);
-for ($i = 0; $i <= $#files; $i++)
-{
-	$file = $files[$i];
-	next unless ($file =~ /\.dll$/);
-	next unless (-d "S:\\sourcemod\\$file");
-	opendir(DIR, "S:\\sourcemod\\$file") or die "Could not open S:\\sourcemod\\$file: $!\n";
-	@subdirs = readdir(DIR);
-	closedir(DIR);
-	for ($j = 0; $j <= $#subdirs; $j++)
-	{
-		next unless ($subdirs[$j] =~ /[A-Z]/);
-		Build::Command("rename S:\\sourcemod\\$file\\" . $subdirs[$j] . " " . lc($subdirs[$j]));
-	}	
-}
-
+#!/usr/bin/perl
+
+use File::Basename;
+
+my ($myself, $path) = fileparse($0);
+chdir($path);
+
+use FindBin;
+use lib $FindBin::Bin;
+require 'helpers.pm';
+
+chdir('..');
+chdir('..');
+
+open(PDBLOG, '../OUTPUT/pdblog.txt') or die "Could not open pdblog.txt: $!\n";
+
+#Get version info
+my ($version);
+$version = Build::ProductVersion(Build::PathFormat('product.version'));
+$version =~ s/-dev//g;
+$version .= '-git' . Build::GitRevNum('.');
+
+my ($build_type);
+$build_type = Build::GetBuildType(Build::PathFormat('tools/buildbot/build_type'));
+
+if ($build_type eq "dev")
+{
+	$build_type = "buildbot";
+}
+elsif ($build_type eq "rel")
+{
+	$build_type = "release";
+}
+
+my ($line);
+while (<PDBLOG>)
+{
+	$line = $_;
+	$line =~ s/\.pdb/\*/;
+	chomp $line;
+	Build::Command("symstore add /r /f \"..\\OUTPUT\\$line\" /s \"S:\\sourcemod\" /t \"SourceMod\" /v \"$version\" /c \"$build_type\"");
+}
+
+close(PDBLOG);
+
+#Lowercase DLLs.  Sigh.
+my (@files);
+opendir(DIR, "S:\\sourcemod") or die "Could not open sourcemod symbol folder: $!\n";
+@files = readdir(DIR);
+closedir(DIR);
+
+my ($i, $j, $file, @subdirs);
+for ($i = 0; $i <= $#files; $i++)
+{
+	$file = $files[$i];
+	next unless ($file =~ /\.dll$/);
+	next unless (-d "S:\\sourcemod\\$file");
+	opendir(DIR, "S:\\sourcemod\\$file") or die "Could not open S:\\sourcemod\\$file: $!\n";
+	@subdirs = readdir(DIR);
+	closedir(DIR);
+	for ($j = 0; $j <= $#subdirs; $j++)
+	{
+		next unless ($subdirs[$j] =~ /[A-Z]/);
+		Build::Command("rename S:\\sourcemod\\$file\\" . $subdirs[$j] . " " . lc($subdirs[$j]));
+	}	
+}
+