/[smeserver]/rpms/perl-Object-Persistence/sme7/Object-Persistence-0.92.patch.2004092700
ViewVC logotype

Annotation of /rpms/perl-Object-Persistence/sme7/Object-Persistence-0.92.patch.2004092700

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Tue Jun 12 17:02:25 2007 UTC (17 years, 4 months ago) by slords
Branch: MAIN
CVS Tags: perl-Object-Persistence-0_92-4_el4_sme, HEAD
Import on branch sme7 of package perl-Object-Persistence-0.92-4.el4.sme.src.rpm

1 slords 1.1 --- Object-Persistence-0.92/lib/Persistence/Object/Simple.pm.orig Mon Sep 27 11:57:12 2004
2     +++ Object-Persistence-0.92/lib/Persistence/Object/Simple.pm Mon Sep 27 11:57:23 2004
3     @@ -111,7 +111,7 @@
4     # guard against disallowed characters in filename (basically those
5     # which might mess up the open() call)
6     if (($fn) = ($fn =~ /^([^<>|+]+)$/)) {
7     - open C, ">$fn" || croak "Can't open $fn for writing.";
8     + open C, ">$fn" or croak "Can't open $fn for writing.";
9     eval { flock C, 2 }; undef $@;
10     $fh = *C{ IO };
11     } else {

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed