symkat

[root@echo ~]# cat /etc/puppetlabs/code/environments/production/modules/profile/echo_symkat_net/manifests/init.pp
include ntp

class { 'ntp':
    servers => ['0.pool.ntp.org', '1.pool.ntp.org', '2.pool.ntp.org', '3.pool.ntp.org' ],
    restrict => [
        'default ignore',
        '-6 default ignore',
        '127.0.0.1',
        '-6 ::1',

symkat

463 720 8596

symkat

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use Time::HiRes qw/ time/;

sub unwrap_ref {
    my ( @list ) = @_;
    my @return;
    for my $elem ( @list ) {

symkat

POD Processing Bug (Open/Unresolved)

The POD documentation at http://perldoc.perl.org/perlpod.html states that linking to a website can be done in the following way:

L<scheme:...>
L<text|scheme:...>

Links to an absolute URL. For example, L<http://www.perl.org/> 
or L<The Perl Home Page|http://www.perl.org/>

symkat

--- /root/perl5/lib/perl5/SQL/Translator/Producer/SQLite.pm.bak	2011-05-23 14:52:20.000000000 -0700
+++ /root/perl5/lib/perl5/SQL/Translator/Producer/SQLite.pm	2011-05-30 09:23:58.000000000 -0700
@@ -133,6 +133,8 @@
     my $add_drop_view = $options->{add_drop_view};
 
     my $view_name = $view->name;
+    $global_names{$view_name} = 1;
+
     debug("PKG: Looking at view '${view_name}'\n");
 

symkat

#!/usr/bin/perl
use warnings;
use strict;
use Test::More;
use_ok( "SQL::Translator" );
use_ok( "SQL::Translator::Parser::MySQL" );
use_ok( "SQL::Translator::Producer::SQLite" );

# This test reproduces a bug in SQL::Translator::Producer::SQLite.
# 

symkat

#!/usr/bin/perl
use warnings;
use strict;

# OS X doesn't have seq.  Quick implementation with no
# error checking, and only supports the requirements for
# for i in `seq <low> <high> ; do <command> ; done

my ( $first, $last ) = @ARGV;