Skip Menu |
 

This queue is for tickets about the BatchSystem-SBS CPAN distribution.

Report information
The Basics
Id: 87231
Status: new
Priority: 0/
Queue: BatchSystem-SBS

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Attachments


Subject: [PATCH] wrong return precedence
Download (untitled) / with headers
text/plain 133b
returns binds stronger than or, so the expressions after or are ignored. See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
Subject: BatchSystem-SBS-0.41-returnor.patch
diff -bu BatchSystem-SBS-0.41-oZekW0/lib/BatchSystem/SBS/Common.pm~ BatchSystem-SBS-0.41-oZekW0/lib/BatchSystem/SBS/Common.pm --- BatchSystem-SBS-0.41-oZekW0/lib/BatchSystem/SBS/Common.pm~ 2008-03-13 08:18:53.000000000 -0500 +++ BatchSystem-SBS-0.41-oZekW0/lib/BatchSystem/SBS/Common.pm 2013-07-23 17:22:24.545411808 -0500 @@ -86,7 +86,7 @@ sub lockFile{ my $f=shift or CORE::die "must pass an argument to lockFile"; if($simpleLocker){ - return $simpleLocker->trylock($f) or CORE::die "cannot lock [$f]: $!"; + return $simpleLocker->trylock($f) || CORE::die "cannot lock [$f]: $!"; }else{ File::Flock::lock("$f.flck", (($OSNAME=~/win/i)?'shared':'')) or CORE::die "cannot lock ($f): $!"; }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.