Changeset 2033

Timestamp:

05/10/17 17:54:04 (7 years ago)

Author:

nanardon

Message:

• 5.2.15

Files:

• tags/5.2.15 (copied) (copied from trunk)
• tags/5.2.15/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm (modified) (1 diff)
• tags/5.2.15/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (1 diff)
• tags/5.2.15/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm (modified) (1 diff)
• tags/5.2.15/LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm (modified) (1 diff)
• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm (modified) (1 diff)
• trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (1 diff)
• trunk/annouceRelease (modified) (2 diffs)

tags/5.2.15/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -27 +27 @@
     /;
 
-our $VERSION = '5.2.14';
+our $VERSION = '5.2.15';
 
 # Configure the application. 

tags/5.2.15/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -12 +12 @@
 use LATMOS::Accounts::I18N;
 
-our $VERSION = '5.2.14';
+our $VERSION = '5.2.15';
 
 =head1 NAME

tags/5.2.15/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

@@ -47 +47 @@
 %EXPORT_TAGS = (LOGLEVELS => [ @loglevels ]);
 
-our $VERSION = (q$Rev: 1455 $ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
 my %lastmessages = ();

tags/5.2.15/LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

@@ -31 +31 @@
 =cut
 
-our $VERSION = (q$Rev: 1384 $ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
 =head2 new($from, $to, %options)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -27 +27 @@
     /;
 
-our $VERSION = '5.2.14';
+our $VERSION = '5.2.15';
 
 # Configure the application. 

trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -12 +12 @@
 use LATMOS::Accounts::I18N;
 
-our $VERSION = '5.2.14';
+our $VERSION = '5.2.15';
 
 =head1 NAME

trunk/annouceRelease

@@ -30 +30 @@
 EOF
 
-if (open(my $handle, '<', 'LATMOS-Accounts/Changes')) {
-    my $text = join('', <$handle>);
-    my ($changes) = $text =~ m/^$version\s+$(.*)^\S/sm;
-    close($handle);
+sub parse_changes {
+    my ($files) = @_;
 
+    my $text = '';
+
+    if (open(my $handle, '<', $files)) {
+        while(my $line = <$handle>) {
+            if ($line =~ /^$version\s*$/) {
+                while ($line = <$handle>) {
+                    $line =~ /^\S/ and last;
+                    $text .= $line;
+                }
+                last;
+            }
+        }
+        close($handle);
+    }
+
+    return $text
+}
+
+if (my $changes = parse_changes('LATMOS-Accounts/Changes')) {
     if ($changes) {
         $message .= "\nChanges for Link::Accounts\n";
@@ -42 +59 @@
     }
 }
-if (open(my $handle, '<', 'LATMOS-Accounts-Web/Changes')) {
-    my $text = join('', <$handle>);
-    my ($changes) = $text =~ m/^$version\s+$(.*)^\S/sm;
-    close($handle);
-
+if (my $changes = parse_changes('LATMOS-Accounts-Web/Changes')) {
     if ($changes) {
         $message .= "\nChanges for Link::Accounts Web Application\n";