diff options
author | 2013-09-10 14:40:16 +0200 | |
---|---|---|
committer | 2013-09-10 14:40:16 +0200 | |
commit | 6c416b97725986f5bf122c7690ab3006c70a6ff2 (patch) | |
tree | dea6434c9cc9792da9b5982ef2c1778c9b649b41 /Portage.pm | |
parent | Added reading of the new incoming alternative description line and its additi... (diff) | |
parent | Change the usage of Readonly (unneccessary dependency) to pragma constant (no... (diff) | |
download | ufed-6c416b97725986f5bf122c7690ab3006c70a6ff2.tar.gz ufed-6c416b97725986f5bf122c7690ab3006c70a6ff2.tar.bz2 ufed-6c416b97725986f5bf122c7690ab3006c70a6ff2.zip |
Merge branch 'master' into altdesc to have recent development there as well.
Diffstat (limited to 'Portage.pm')
-rw-r--r-- | Portage.pm | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -6,7 +6,6 @@ package Portage; use strict; use warnings; -use Readonly; BEGIN { use Exporter (); @@ -20,7 +19,7 @@ BEGIN { # --- public members --- # Set this to 1 to get debugging output -Readonly our $DEBUG => 0; +use constant { DEBUG => 0 }; # $use_flags - hashref that represents the combined and # consolidated data about all valid use flags @@ -173,13 +172,13 @@ INIT { # --- public methods implementations --- # Write a given message to STDERR adding a newline at the end -# This function does nothing unless $DEBUG is set to something +# This function does nothing unless DEBUG is set to something # different than zero # Parameter 1: The message sub debugMsg { my ($msg) = @_; - $DEBUG or return; + DEBUG or return; print STDERR "$msg\n"; return; } |