metaperl

;;; init.el --- Where all the magic begins

;; This is the first thing to get loaded.

;; inspired by technomancy's emacs starter kit
;; http://github.com/technomancy/emacs-starter-kit/blob/master/init.el

(setq debug-on-error t)

metaperl

[t.brannan@bcrtfl1-d30h7f1: /cygdrive/c/tmp/delete/based-on-age/month/avram-0.12.0] ./configure
checking for a BSD-compatible install... /usr/bin/install -c
checking whether build environment is sane... yes
checking for a thread-safe mkdir -p... /usr/bin/mkdir -p
checking for gawk... gawk
checking whether make sets $(MAKE)... yes
checking for gcc... no
checking for cc... no
checking for cl.exe... no
configure: error: in `/cygdrive/c/tmp/delete/based-on-age/month/avram-0.12.0':

metaperl

package MKDML;

use strict;
use warnings;

use Readonly;
use SQL::Abstract;


use Data::Dumper;

metaperl

;;; tramp.el --- Transparent Remote Access, Multiple Protocol

;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.

;; (copyright statements below in code to be updated with the above notice)

;; Author: Kai Großjohann <kai.grossjohann@gmx.net>
;;         Michael Albinus <michael.albinus@gmx.de>
;; Keywords: comm, processes

metaperl

.PHONY: all

all:
	git clone http://github.com/defunkt/gist.el.git
	perl {{
	print 'github username: ';
	my $username = <STDIN>;
	print 'github API token: ';
	my $api_token = <STDIN>;
	system "git config --global github.user $username";

metaperl

	MKDML::BOTH('PRODUCT', 'HASH(0x9e2acf0)', 'HASH(0x88e4c08)') called at dml.pl line 21
	main::main() called at dml.pl line 53
INSERT(  => HASH(0x9e2acf0), HASH(0x88e4c08) ); at /usr/local/vwh/bin/make-dml/MKDML.pm line 102
	MKDML::BOTH('PRODUCT', 'HASH(0x9e2acf0)', 'HASH(0x88e4c08)') called at dml.pl line 21
	main::main() called at dml.pl line 53
[SQL::Abstract::_SWITCH_refkind] Fatal: no dispatch entry for UNDEF at /usr/local/vwh/library/CPAN/SQL/Abstract.pm line 58
	SQL::Abstract::puke('no dispatch entry for UNDEF') called at /usr/local/vwh/library/CPAN/SQL/Abstract.pm line 1175
	SQL::Abstract::_SWITCH_refkind('SQL::Abstract=HASH(0x8128298)', 'undef', 'HASH(0x9e2b0c8)') called at /usr/local/vwh/library/CPAN/SQL/Abstract.pm line 1016
	SQL::Abstract::_table('SQL::Abstract=HASH(0x8128298)', 'undef') called at /usr/local/vwh/library/CPAN/SQL/Abstract.pm line 113
	SQL::Abstract::insert('SQL::Abstract=HASH(0x8128298)', 'undef', 'HASH(0x9e2b020)') called at /usr/local/vwh/bin/make-dml/MKDML.pm line 93

metaperl

package MKDML;

use strict;
use warnings;

use Carp::Always;
use Params::Util qw(:ALL);
use Readonly;
use SQL::Abstract;

metaperl

use strict;
use warnings;

use lib '/usr/local/vwh/bin/make-dml';

use Storable;

use MKDML;
use Nimbus::DB;

metaperl

#!/bin/bash -x

VERS="8.1.0"
DATE="2006-10-22"

# ----- configure build here

# specify how to invoke the asciidoc binary

ASCIIDOC="python ../../asciidoc.py"

metaperl

my @parm = qw(a b c):

  for my $parm (@parm) {
    warn $x->{${parm}_x};
  }