# HG changeset patch # User Heiko Schlittermann (JUMPER) # Date 1320938318 -3600 # Node ID 15a5ac599b959293172813a97cde5dc15f12cd63 # Parent fa7b46d0c1b9a1f11b86959cb9bbfadfe9c03500 nice already, but no functionality ☺ diff -r fa7b46d0c1b9 -r 15a5ac599b95 Build.PL --- a/Build.PL Thu Nov 10 16:17:49 2011 +0100 +++ b/Build.PL Thu Nov 10 16:18:38 2011 +0100 @@ -5,4 +5,10 @@ Module::Build->new( dist_name => "GPGate", dist_version => "0", + requires => { + "perl" => "5.10.0", + }, + build_requires => { + "Test::More" => "0.92", + }, )->create_build_script(); diff -r fa7b46d0c1b9 -r 15a5ac599b95 lib/Message/.perltidyrc --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/Message/.perltidyrc Thu Nov 10 16:18:38 2011 +0100 @@ -0,0 +1,2 @@ +--paren-tightness=2 +--square-bracket-tightness=2 diff -r fa7b46d0c1b9 -r 15a5ac599b95 scratch/sign --- a/scratch/sign Thu Nov 10 16:17:49 2011 +0100 +++ b/scratch/sign Thu Nov 10 16:18:38 2011 +0100 @@ -4,7 +4,7 @@ use strict; use warnings; -use lib "lib"; +use blib; use Message::2822; my $message = Message::2822->new(file => shift//"ex/mails/unsigned"); @@ -12,6 +12,8 @@ say $message->header_content("received:"); say $message->header_content("to:"); +exit; + say $message->orig_header(); say $message->orig_body();