1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
From b025d42bde239064eb1127eabfab13c6f8e9f16a Mon Sep 17 00:00:00 2001
From: Matthias Klumpp <matthias@tenstral.net>
Date: Wed, 30 May 2012 13:36:11 +0200
Subject: [PATCH] Fix typos in libuild Perl modules (bug #1006199)
In some Perl modules, libuild was still called
lixbuild...
---
contrib/libuild/LiBuild/GCC.pm | 16 ++++++++--------
contrib/libuild/LiBuild/Utils.pm | 6 +++---
2 files changed, 11 insertions(+), 11 deletions(-)
diff --git a/contrib/libuild/LiBuild/GCC.pm b/contrib/libuild/LiBuild/GCC.pm
index ca1f372..8d1d9d6 100644
--- a/contrib/libuild/LiBuild/GCC.pm
+++ b/contrib/libuild/LiBuild/GCC.pm
@@ -1,8 +1,8 @@
# Various gcc-related functions
-package LixBuild::GCC;
+package LiBuild::GCC;
use strict;
-use LixBuild::Utils;
+use LiBuild::Utils;
use IPC::Open3;
@@ -25,10 +25,10 @@ our $srcTypes = "$cTypes|$cxxTypes";
######## Methods ########
##
-# LixBuild::GCC->new(gcc_command)
+# LiBuild::GCC->new(gcc_command)
# gcc_command: The command for invoking GCC.
#
-# Create a new LixBuild:GCC object.
+# Create a new LiBuild:GCC object.
sub new {
my ($class, $gcc) = @_;
my %self;
@@ -72,8 +72,8 @@ sub capabilities {
my @stat = stat $gcc_file;
my $gcc_mtime = $stat[9];
my $home = homeDir();
- if (-f "$home/.lixbuild") {
- parseDataFile("$home/.lixbuild", \%cache);
+ if (-f "$home/.libuild") {
+ parseDataFile("$home/.libuild", \%cache);
if ($cache{version} != 2) {
# Cache file version incompatible; delete cache
%cache = ();
@@ -225,7 +225,7 @@ sub capabilities {
}
$cache{version} = 2;
- writeDataFile("$home/.lixbuild", \%cache);
+ writeDataFile("$home/.libuild", \%cache);
return %capabilities;
}
@@ -233,7 +233,7 @@ sub capabilities {
##
# $gcc->command()
#
-# Returns the GCC command associated with this LixBuild::GCC object.
+# Returns the GCC command associated with this LiBuild::GCC object.
sub command {
my ($self) = @_;
return $self->{gcc};
diff --git a/contrib/libuild/LiBuild/Utils.pm b/contrib/libuild/LiBuild/Utils.pm
index a26e7c1..e5a3f48 100644
--- a/contrib/libuild/LiBuild/Utils.pm
+++ b/contrib/libuild/LiBuild/Utils.pm
@@ -1,4 +1,4 @@
-package LixBuild::Utils;
+package LiBuild::Utils;
use strict;
use warnings;
@@ -17,10 +17,10 @@ our $debugOpened = 0;
##
# debug(message)
#
-# If the environment variable $LIXBUILD_DEBUG is set to 1,
+# If the environment variable $LIBUILD_DEBUG is set to 1,
# then print a debugging message to /dev/tty (not stdout or stderr).
sub debug {
- return if (empty($ENV{LIXBUILD_DEBUG}) || !$ENV{LIXBUILD_DEBUG});
+ return if (empty($ENV{LIBUILD_DEBUG}) || !$ENV{LIBUILD_DEBUG});
if (!$debugOpened) {
if (open DEBUG, '>/dev/tty') {
--
1.7.10
|
