0003-Some-Perl-code-simplification-in-gen_export.pl.patch
text/plain
Filename: 0003-Some-Perl-code-simplification-in-gen_export.pl.patch
Type: text/plain
Part: 2
Patch
Format: format-patch
Series: patch 0003
Subject: Some Perl code simplification in gen_export.pl
| File | + | − |
|---|---|---|
| src/tools/gen_export.pl | 1 | 3 |
From 5b79baf6bbf4fa62f153a5e96e97f8d5a6345821 Mon Sep 17 00:00:00 2001
From: Peter Eisentraut <peter@eisentraut.org>
Date: Wed, 24 Aug 2022 11:24:36 +0200
Subject: [PATCH 3/3] Some Perl code simplification in gen_export.pl
---
src/tools/gen_export.pl | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/tools/gen_export.pl b/src/tools/gen_export.pl
index 1265564473..727105ba08 100644
--- a/src/tools/gen_export.pl
+++ b/src/tools/gen_export.pl
@@ -48,7 +48,7 @@
{
# don't do anything with a comment
}
- elsif (/^([^\s]+)\s+([^\s]+)/)
+ elsif (/^(\S+)\s+(\S+)/)
{
if ($format eq 'aix')
{
@@ -79,5 +79,3 @@
};
";
}
-
-exit(0);
--
2.37.1