View gist:5aed3a57d3995e31a377
1 2 3 4 5 6 7 8 9 10
diff -r 3790fb70e04c src/os_win32.c
--- a/src/os_win32.c Tue Apr 21 19:10:49 2015 +0200
+++ b/src/os_win32.c Mon May 25 13:07:59 2015 +0900
@@ -584,6 +584,11 @@
SECURITY_INFORMATION, PSID *, PSID *, PACL *, PACL *,
PSECURITY_DESCRIPTOR *);
# endif
+typedef BOOL (*PRCOUTPUT)(HANDLE, PCHAR_INFO, COORD, COORD, PSMALL_RECT);
+typedef BOOL (*PWCOUTPUT)(HANDLE, CONST CHAR_INFO*, COORD, COORD, PSMALL_RECT);
+
View gist:bc4c8c094ab5dd148aa9
1 2 3 4 5 6 7 8 9 10
ag.vim
autofmt
ctrlp-ghq
ctrlp-launcher
ctrlp.vim
dicwin-vim
emmet-vim
gist-vim
memolist.vim
open-browser.vim
View _sprintf_test.c
1 2 3 4 5 6 7 8 9 10
#include <stdio.h>
#include <shlwapi.h>
 
int
main(int argc, char* argv[]) {
char buf[256];
strcpy(buf, "XXXXXXXXXXXXXXX");
_snprintf(buf, 8, "1234%s", "abcdef");
puts(buf);
return 0;
View gist:077f42e3b524d1e174b9
1 2 3 4 5 6 7 8 9 10
C:\dev\HTTP-Tinyish>build test
t/tinyish.t .. # Testing with HTTP::Tinyish::LWP
t/tinyish.t .. 1/?
# Failed test at t/tinyish.t line 25.
t/tinyish.t .. 3/? # got: '500'
# expected: '200'
 
# Failed test at t/tinyish.t line 26.
# 'Can't connect to cpan.metacpan.org:443
#
View foo.pl
1 2 3 4 5 6
use strict;
use warnings;
use HTTP::Tinyish;
use YAML::Syck;
my $res = HTTP::Tinyish->new->get("http://www.cpan.org/");
warn Dump $res;
View gist:5f388e4fdba9a69a49a2
1 2 3 4 5 6 7 8 9 10
diff -r 18d84ed365a5 src/search.c
--- a/src/search.c Wed Apr 22 22:18:22 2015 +0200
+++ b/src/search.c Thu Apr 30 00:43:26 2015 +0900
@@ -2154,6 +2154,7 @@
do_quotes = 0;
else if (do_quotes == -1)
{
+ int do_squotes = -1;
/*
* Count the number of quotes in the line, skipping \" and '"'.
View gist:8591d5316b990fc4d7d5
1 2 3 4 5 6 7 8 9 10
diff -r 3790fb70e04c runtime/doc/eval.txt
--- a/runtime/doc/eval.txt Tue Apr 21 19:10:49 2015 +0200
+++ b/runtime/doc/eval.txt Mon Apr 27 10:55:34 2015 +0900
@@ -1935,7 +1935,7 @@
repeat( {expr}, {count}) String repeat {expr} {count} times
resolve( {filename}) String get filename a shortcut points to
reverse( {list}) List reverse {list} in-place
-round( {expr}) Float round off {expr}
+round( {expr} [, {digits}]) Float round off {expr} with {digits}
screenattr( {row}, {col}) Number attribute at screen position
View 01-test.pl
1 2 3 4 5 6 7 8 9 10
#! perl.exe
use strict;
use warnings;
#use open qw{:std :encoding(UTF-8)}; # これは落ちる
use open qw{:encoding(UTF-8)}; # これは落ちなくなった
 
my $i = 1;
 
my $pid = fork;
die "Cannot fork: $!" unless defined $pid;
View gist:628b688663bb33d9fd6e
1 2 3 4 5 6 7 8 9 10
diff --git a/cop.h b/cop.h
index ce0cd54..91ab282 100644
--- a/cop.h
+++ b/cop.h
@@ -1111,6 +1111,8 @@ typedef struct stackinfo PERL_SI;
#define PUSHSTACKi(type) \
STMT_START { \
+ if (!PL_curstackinfo) \
+ Perl_init_stacks(aTHX); \
Something went wrong with that request. Please try again.