Attachment 153716 Details for Bug 34321 – Bug 34321: Tidy skeleton.pl

[patch] Bug 34321: Tidy skeleton.pl

Bug-34321-Tidy-skeletonpl.patch (text/plain), 1.51 KB, created by Marcel de Rooy on 2023-07-20 11:50:48 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2023-07-20 11:50:48 UTC

Size: 1.51 KB

patch

obsolete

>From 3150660ac71fbf3a6ed458d67685c9329e04daa9 Mon Sep 17 00:00:00 2001
>From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>Date: Thu, 20 Jul 2023 11:49:37 +0000
>Subject: [PATCH] Bug 34321: Tidy skeleton.pl
>Content-Type: text/plain; charset=utf-8
>
>Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>---
> installer/data/mysql/atomicupdate/skeleton.pl | 11 ++++++++---
> 1 file changed, 8 insertions(+), 3 deletions(-)
>
>diff --git a/installer/data/mysql/atomicupdate/skeleton.pl b/installer/data/mysql/atomicupdate/skeleton.pl
>index c253039c5c..a87b86cd91 100755
>--- a/installer/data/mysql/atomicupdate/skeleton.pl
>+++ b/installer/data/mysql/atomicupdate/skeleton.pl
>@@ -1,23 +1,28 @@
> use Modern::Perl;
> 
> return {
>-    bug_number => "BUG_NUMBER",
>+    bug_number  => "BUG_NUMBER",
>     description => "A single line description",
>-    up => sub {
>+    up          => sub {
>         my ($args) = @_;
>-        my ($dbh, $out) = @$args{qw(dbh out)};
>+        my ( $dbh, $out ) = @$args{qw(dbh out)};
>+
>         # Do you stuffs here
>         $dbh->do(q{});
>+
>         # Print useful stuff here
>         # tables
>         say $out "Added new table 'XXX'";
>         say $out "Added column 'XXX.YYY'";
>+
>         # sysprefs
>         say $out "Added new system preference 'XXX'";
>         say $out "Updated system preference 'XXX'";
>         say $out "Removed system preference 'XXX'";
>+
>         # permissions
>         say $out "Added new permission 'XXX'";
>+
>         # letters
>         say $out "Added new letter 'XXX' (TRANSPORT)";
>     },
>-- 
>2.30.2

Actions: View | Diff | Splinter Review

Attachments on bug 34321: 153716