Commits

Burak Gürsoy  committed 0b95166

_print() fix

  • Participants
  • Parent commits 9922f66

Comments (0)

Files changed (1)

 use constant RAMGB              => 1024**2;
 
 BEGIN {
-    *_print = sub { print @_ or croak "Unable to print to STDOUT: $!" }
-        if ! defined &_print;
+    if ( ! defined &_print ) {
+        *_print = sub {
+            # has to be here, putting this outside makes it a no-op
+            # for some weird reason
+            binmode STDOUT, ':encoding(utf-8)' if ! IS_WINDOWS;
+            print @_ or croak "Unable to print to STDOUT: $!";
+        };
+    }
 
     *_error = sub { croak @_ }
         if ! defined &_error;
 our $VERSION = q(1.20);
 
 our $MAKE = IS_WINDOWS ? 'dmake' : 'make';
-our $LANG = defined &LANG_ID ? LANG_ID() : 'EN';
+our $LANG = defined &LANG_ID       ? LANG_ID()
+          : $ENV{BURAK_BUILD_LANG} ? $ENV{BURAK_BUILD_LANG}
+          :                          'EN';
+
 our $TTS  = Text::Template::Simple->new(
     header => 'my %p = @_;',
     cache  => 1,
         'bench.ok'        => "\nİşlem %s sürdü\n",
         'start.message'   => "%s sürüm %s başlıyor ...\n",
         'exit.message'    => "\n\n\tŞu güzel ortamı bozuyorsun!\n\n",
-        'error.notnumber' => "\n\tNumara gireceksin ufaklık!\n\n",
-        'error.length'    => "\n\tZenci numara girdin genç!\n\n",
-        'error.notexists' => "\n\tVarolmayan bir şeyi seçmeye çalışıyorsun evlat!\n\n",
+        'error.notnumber' => "\n\tGirilen veri numara değil!\n\n",
+        'error.length'    => "\n\tGeçersiz numara girildi!\n\n",
+        'error.notexists' => "\n\tVarolmayan bir şeyi seçmeye çalışıyorsunuz!\n\n",
         'ask.selection'   => 'Paketlemek için bir modül seçin [1]: ',
         'finish.report'   => <<'INFO',
 Bu oturumda kullanılan dizinler: