r48883 - in /trunk/libschedule-at-perl: At.pm Changes META.yml debian/changelog t/t1.t

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

Author: jawnsy-guest
Date: Wed Dec 16 16:58:18 2009
New Revision: 48883

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48883
Log:
Adds support for OpenBSD, no need to upload
IGNORE-VERSION: 1.09-1
* New upstream release

Modified:
    trunk/libschedule-at-perl/At.pm
    trunk/libschedule-at-perl/Changes
    trunk/libschedule-at-perl/META.yml
    trunk/libschedule-at-perl/debian/changelog
    trunk/libschedule-at-perl/t/t1.t

Modified: trunk/libschedule-at-perl/At.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/At.pm?rev=48883&op=diff
==============================================================================
--- trunk/libschedule-at-perl/At.pm (original)
+++ trunk/libschedule-at-perl/At.pm Wed Dec 16 16:58:18 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: trunk/libschedule-at-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/Changes?rev=48883&op=diff
==============================================================================
--- trunk/libschedule-at-perl/Changes (original)
+++ trunk/libschedule-at-perl/Changes Wed Dec 16 16:58:18 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: trunk/libschedule-at-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/META.yml?rev=48883&op=diff
==============================================================================
--- trunk/libschedule-at-perl/META.yml (original)
+++ trunk/libschedule-at-perl/META.yml Wed Dec 16 16:58:18 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: trunk/libschedule-at-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/debian/changelog?rev=48883&op=diff
==============================================================================
--- trunk/libschedule-at-perl/debian/changelog (original)
+++ trunk/libschedule-at-perl/debian/changelog Wed Dec 16 16:58:18 2009
@@ -1,4 +1,10 @@
-libschedule-at-perl (1.08-2) UNRELEASED; urgency=low
+libschedule-at-perl (1.09-1) UNRELEASED; urgency=low
+
+  Adds support for OpenBSD, no need to upload
+  IGNORE-VERSION: 1.09-1
+
+  [ Jonathan Yu ]
+  * New upstream release
 
   [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
@@ -10,7 +16,7 @@
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
 
- -- Rene Mayorga <rmayorga at debian.org>  Tue, 20 Jan 2009 01:28:53 -0600
+ -- Jonathan Yu <jawnsy at cpan.org>  Wed, 16 Dec 2009 08:47:08 -0500
 
 libschedule-at-perl (1.08-1) unstable; urgency=low
 

Modified: trunk/libschedule-at-perl/t/t1.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/t/t1.t?rev=48883&op=diff
==============================================================================
--- trunk/libschedule-at-perl/t/t1.t (original)
+++ trunk/libschedule-at-perl/t/t1.t Wed Dec 16 16:58:18 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;