Songmu

runtime: garbage collector found invalid heap pointer *(0xc08207e720+0x18)=0xf s=nil
runtime: found *(0xc082043988+0x8) = 0xc08207e720+0x0
fatal error: bad pointer

runtime stack:
runtime.throw(0x918359)
        c:/go/src/runtime/panic.go:491 +0xad fp=0x2aef9e8 sp=0x2aef9b8
scanblock(0xc082043988, 0x128, 0x813714)
        c:/go/src/runtime/mgc0.c:415 +0x990 fp=0x2aefb28 sp=0x2aef9e8
scanframe(0x2aefc30, 0x0, 0x101)

Songmu

#!/usr/bin/env perl
use 5.014;
use warnings;

my $file = $ARGV[0];

system qw/sips -d profile --deleteColorManagementProperties/, $file;
my $dpiWidth    = `sips -g dpiWidth $file    | awk '/:/ {print \$2}'`;
my $dpiHeight   = `sips -g dpiHeight $file   | awk '/:/ {print \$2}'`;
my $pixelWidth  = `sips -g pixelWidth $file  | awk '/:/ {print \$2}'`;

Songmu

#!/usr/bin/env perl
use 5.014;
use warnings;
use utf8;

my $ebook_convert = '/Applications/calibre.app/Contents/MacOS/ebook-convert';

my $file = shift;
if (!$file || ! -f $file) {
    die "no files are specified!\n";

Songmu

#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark qw(cmpthese);
use DBI;
use Test::More;

{
    package DBIC::Schema::Result::User;
    use parent qw/DBIx::Class::Core/;

Songmu

use strict;
use warnings;
use constant {HOGE => 10};
use Test::More;
use Test::Mock::Guard;

{
    my $g = mock_guard main => { HOGE => sub { 100 }};

    is HOGE,                     10;

Songmu

package Hoge;
use strict;
use warnings;
use utf8;

use MyCon;

sub hage {
    HOGE;
}

Songmu

use 5.014;
use strict;
use warnings;

while (my $d = <DATA>) {
    say ord($_) for split //, $d;
    say '';
}

__DATA__

Songmu

use 5.014;

my $str = "
abc";

say ord($_) for split //, $str;

Songmu

#!/usr/bin/env ruby

require 'fileutils'
require 'securerandom'

def main
  user = IO.popen("whoami", "r+").gets.chomp

  # capture png file
  tmpfile = "/tmp/image_upload#{$$}.png"

Songmu

App::Ack                                          :19
YAML                                              :19
Devel::NYTProf                                    :18
Perl::Tidy                                        :18
App::cpanminus                                    :17
Dist::Zilla                                       :17
Moose                                             :17
Test::Pod                                         :16
JSON                                              :15
DBD::SQLite                                       :14