SpiceMan

it has nothing to do with tenses, but with what each conditional inherent meaning allows.
it's pretty complicated.

と is a "hard fact" conditional.

used for:
1) things that are invariable or so recurrent you might as well hold it as "true"
冬になると、寒くなる. (law of nature, invariable)
ボタンを押すと、電気がつく.  (recurrent, the lightbulb might be broken and not turn on, but still valid)

SpiceMan

diff --git a/IRC/plugins/URL/URL.rb b/IRC/plugins/URL/URL.rb
index 7511bb8..be5b2f3 100644
--- a/IRC/plugins/URL/URL.rb
+++ b/IRC/plugins/URL/URL.rb
@@ -120,6 +120,8 @@ accept either index (1 is the most recent one) or substring of the desired URL",
     text = nil

     fetch_by_uri(uri) do |result|
+      # ZZZ. Net::HTTPResponse.uri only has the uri if the request used an URI instance. (why not ducktype, ffs?)
+      result['uri'] = uri

SpiceMan

diff --git a/lib/MBPY/DB/Result/Option.pm b/lib/MBPY/DB/Result/Option.pm
index b3bb2d3..a766e0a 100644
--- a/lib/MBPY/DB/Result/Option.pm
+++ b/lib/MBPY/DB/Result/Option.pm
@@ -157,7 +157,11 @@ sub short_name {
     my $name = decode( "sjis", $self->name );

        $name =~ s/を選んで.+$//;
-       return to_sjis($name);
+# 波ダッシュと全角マイナスのUTF-8=>シフトジス変換問題対策

SpiceMan

--- sapi/apache2handler/php_functions.c 2010-01-03 18:23:27.000000000 +0900
+++ sapi/apache2handler/php_functions2.4.c      2019-11-07 13:08:30.966214824 +0900
@@ -383,7 +383,7 @@
        char *p;
        server_rec *serv = ((php_struct *) SG(server_context))->r->server;
 #if !defined(WIN32) && !defined(WINNT) && !defined(NETWARE)
-       AP_DECLARE_DATA extern unixd_config_rec unixd_config;
+       AP_DECLARE_DATA extern unixd_config_rec ap_unixd_config;
 #endif

SpiceMan

@MappedSuperclass
@Data
public abstract class AbstractBaseEntity implements Serializable {

	private static final long serialVersionUID = -2700410403541761609L;

	@Id
	@GeneratedValue
	private Long id;
	

SpiceMan

package MyApp::Controler::Root;

# blah blah blah

sub bar :Local Args(0) POST Consumes(JSON) {
    my( $self, $c ) = @_;

    # do nothing, just calling it to make sure _build_body_data runs
    my $foo = $c->req->body_data;

SpiceMan

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/:5.10/;
use TryCatch;
use Moops;
use Carp::Always;

SpiceMan

Summary of my perl5 (revision 5 version 18 subversion 2) configuration:

  Platform:
    osname=linux, osvers=2.6.32-431.el6.x86_64, archname=x86_64-linux
    uname='linux asyst 2.6.32-431.el6.x86_64 #1 smp fri nov 22 03:15:09 utc 2013 x86_64 x86_64 x86_64 gnulinux '
    config_args='-de -Dprefix=/opt/perl5/perls/perl-5.18.2 -Aeval:scriptdir=/opt/perl5/perls/perl-5.18.2/bin'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef

SpiceMan

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/:5.10/;
use Moops;
use Carp::Always;

role SubClassVariableAttributes {
    has "_var_attrs" => qw/is rw isa HashRef required 1/;

SpiceMan

11:32 spiceman@spiceman ~ % git clone https://github.com/SpiceMan/MoopsTestCase.git
Initialized empty Git repository in /home/spiceman/MoopsTestCase/.git/
remote: Counting objects: 18, done.
remote: Compressing objects: 100% (9/9), done.
remote: Total 18 (delta 3), reused 18 (delta 3)
Unpacking objects: 100% (18/18), done.
11:32 spiceman@spiceman ~ % perl -v

This is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-linux