r48881 - in /branches/upstream/libschedule-at-perl/current: At.pm Changes META.yml t/t1.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Dec 16 16:54:28 2009
New Revision: 48881

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48881
Log:
[svn-upgrade] Integrating new upstream version, libschedule-at-perl (1.09)

Modified:
    branches/upstream/libschedule-at-perl/current/At.pm
    branches/upstream/libschedule-at-perl/current/Changes
    branches/upstream/libschedule-at-perl/current/META.yml
    branches/upstream/libschedule-at-perl/current/t/t1.t

Modified: branches/upstream/libschedule-at-perl/current/At.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/At.pm?rev=48881&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/At.pm (original)
+++ branches/upstream/libschedule-at-perl/current/At.pm Wed Dec 16 16:54:28 2009
@@ -8,7 +8,7 @@
 
 use vars qw($VERSION @ISA $TIME_FORMAT);
 
-$VERSION = '1.08';
+$VERSION = '1.09';
 
 ###############################################################################
 # Load configuration for this OS
@@ -39,7 +39,6 @@
 
 sub add {
 	my %params = @_;
-        my $cmd;
 
 	my $command = $AT{($params{FILE} ? 'addFile' : 'add')};
 	return &$command($params{JOBID}) if ref($command) eq 'CODE';
@@ -441,6 +440,12 @@
 	$AT{'parseJobList'} = sub { $_[0] =~ s/^\s*(.+)\s+\S+\s+\S+\s+(\d+)$/$2_$1/; $_[0] =~ /^(.+)_(.+)$/ };
 }
 
+sub AtCfg_openbsd {
+        &AtCfg_freebsd;
+        $AT{'headings'} = [];
+        $AT{'parseJobList'} = sub { $_[0] =~ /^.*(\d{10}.c)\s+(.*)$/ };
+}
+
 # Mac OS X (darwin, tiger)
 sub AtCfg_darwin {
 	$AT{'add'} = 'at %TIME% 2> /dev/null';

Modified: branches/upstream/libschedule-at-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/Changes?rev=48881&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/Changes (original)
+++ branches/upstream/libschedule-at-perl/current/Changes Wed Dec 16 16:54:28 2009
@@ -55,3 +55,7 @@
 		so tests fail. Now you need to set environment AT_CAN_EXEC=1
 		to exec all tests if you're not root. Set AT_VERBOSE=1 to
 		get more info about test execution.
+
+1.09 Tue Dec 15 08:54:41 CET 2009
+	- Skip non supported OSs
+	- Added support for OpenBSD (Eric Olsen <herolsen AT alumni.upenn.edu>)

Modified: branches/upstream/libschedule-at-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/META.yml?rev=48881&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/META.yml (original)
+++ branches/upstream/libschedule-at-perl/current/META.yml Wed Dec 16 16:54:28 2009
@@ -1,10 +1,12 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Schedule-At
-version:      1.08
-version_from: At.pm
-installdirs:  site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+--- #YAML:1.0
+name:                Schedule-At
+version:             1.09
+abstract:            ~
+license:             ~
+author:              ~
+generated_by:        ExtUtils::MakeMaker version 6.42
+distribution_type:   module
+requires:     
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libschedule-at-perl/current/t/t1.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/t/t1.t?rev=48881&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/t/t1.t (original)
+++ branches/upstream/libschedule-at-perl/current/t/t1.t Wed Dec 16 16:54:28 2009
@@ -1,21 +1,31 @@
 use Test;
 use strict;
 
-BEGIN {
-	if ($< == 0 || $> == 0 || $ENV{'AT_CAN_EXEC'}) {
-		$main::FULL_TEST = 1;
-		plan tests => 8;
-	} else {
-		plan tests => 1;
-	}
+eval {
+	require Schedule::At;
+};
+if ($@ =~ /SORRY! There is no config for this OS/) {
+	plan tests => 1;
+	skip(1); # OS not supported
+	exit(0);
+} elsif ($@) {
+	die "$@";
 }
 
-my $verbose = $ENV{'AT_VERBOSE'};
+if ($< == 0 || $> == 0 || $ENV{'AT_CAN_EXEC'}) {
+	$main::FULL_TEST = 1;
+	plan tests => 8;
+} else {
+	plan tests => 1;
+}
 
-use Schedule::At;
+# Module compiles!
 ok(1);
 
+# Exit if platform not supported or at command is not available
 exit 0 unless $main::FULL_TEST;
+
+my $verbose = $ENV{'AT_VERBOSE'};
 
 my $rv;