diff options
| author |   Sven Eden <yamakuzure@gmx.net> | 2013-09-10 14:40:16 +0200 |
|---|---|---|
| committer | Sven Eden <yamakuzure@gmx.net> | 2013-09-10 14:40:16 +0200 |
| commit | 6c416b97725986f5bf122c7690ab3006c70a6ff2 (patch) | |
| tree | dea6434c9cc9792da9b5982ef2c1778c9b649b41 | |
| 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.
| -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; } |