Skip to content

Commit

Permalink
Update 9 packages
Browse files Browse the repository at this point in the history
perl (5.36.1-1 -> 5.38.1-1)
perl-Clone (0.45-4 -> 0.46-1)
perl-HTML-Parser (3.78-1 -> 3.81-1)
perl-Locale-Gettext (1.07-6 -> 1.07-7)
perl-Net-SSLeay (1.92-2 -> 1.92-3)
perl-TermReadKey (2.38-7 -> 2.38-8)
perl-XML-Parser (2.46-6 -> 2.46-7)
perl-YAML-Syck (1.34-2 -> 1.34-3)
subversion (1.14.2-1 -> 1.14.2-2)

Signed-off-by: Git for Windows Build Agent <ci@git-for-windows.build>
  • Loading branch information
Git for Windows Build Agent committed Nov 27, 2023
1 parent 9e1e834 commit 6510223
Show file tree
Hide file tree
Showing 2,157 changed files with 95,227 additions and 45,926 deletions.
46 changes: 34 additions & 12 deletions usr/bin/core_perl/perlbug
Original file line number Diff line number Diff line change
Expand Up @@ -2,9 +2,9 @@
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # ^ Run only under a shell

my $config_tag1 = '5.36.1 - Mon Apr 24 08:38:19 UTC 2023';
my $config_tag1 = '5.38.1 - Sun Nov 26 14:06:45 UTC 2023';

my $patchlevel_date = 1681659354;
my $patchlevel_date = 1700923170;
my @patches = Config::local_patches();
my $patch_tags = join "", map /(\S+)/ ? "+$1 " : (), @patches;

Expand Down Expand Up @@ -34,7 +34,7 @@ BEGIN {
$::HaveWrap = ($@ eq "");
};

our $VERSION = "1.42";
our $VERSION = "1.43";

#TODO:
# make sure failure (transmission-wise) of Mail::Send is accounted for.
Expand Down Expand Up @@ -568,6 +568,10 @@ generated with the help of perlbug $VERSION running under perl $perl_version.
EOF

if ($report_about_module) {
print REP "Module: $report_about_module\n\n";
}

if ($body) {
print REP $body;
} elsif ($usefile) {
Expand All @@ -594,12 +598,25 @@ EOF
print REP <<'EOF';
-----------------------------------------------------------------
[Please describe your issue here]
<!--[Please describe your issue here]-->
**Description**
<!-- A clear and concise description of what the bug is. -->
[Please do not change anything below this line]
-----------------------------------------------------------------
**Steps to Reproduce**
<!-- A one-liner or script to reproduce the issue. -->
**Expected behavior**
<!-- A clear and concise description of what you expected to happen. -->
<!--[Please do not change anything below this line]-->
<!------------------------------------------------------------------- -->
EOF
}
}
Expand All @@ -619,26 +636,30 @@ sub Dump {
$severity ||= 'low';

print OUT <<EFF;
---
Flags:
category=$category
severity=$severity
**Flags**
- category=$category
- severity=$severity
EFF

if ($has_patch) {
print OUT <<EFF;
Type=Patch
PatchStatus=HasPatch
- Type=Patch
- PatchStatus=HasPatch
EFF
}

if ($report_about_module ) {
print OUT <<EFF;
module=$report_about_module
- module=$report_about_module
EFF
}
print OUT <<EFF;
---
**Perl configuration**
```
EFF
print OUT "This perlbug was built using Perl $config_tag1\n",
"It is being executed now by Perl $config_tag2.\n\n"
Expand Down Expand Up @@ -693,6 +714,7 @@ EOF
print OUT "$_='$value'\n";
}
}
print OUT "```\n";
} # sub Dump

sub Edit {
Expand Down
4 changes: 2 additions & 2 deletions usr/bin/core_perl/perlivp
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # ^ Run only under a shell

# perlivp v5.36.1
# perlivp v5.38.1

BEGIN { pop @INC if $INC[-1] eq '.' }

Expand Down Expand Up @@ -67,7 +67,7 @@ $tests_total++;

print "## Checking Perl version via variable '\$]'.\n" if $opt{'p'};

my $ivp_VERSION = "5.036001";
my $ivp_VERSION = "5.038001";


$label = 'Perl version correct';
Expand Down
46 changes: 34 additions & 12 deletions usr/bin/core_perl/perlthanks
Original file line number Diff line number Diff line change
Expand Up @@ -2,9 +2,9 @@
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # ^ Run only under a shell

my $config_tag1 = '5.36.1 - Mon Apr 24 08:38:19 UTC 2023';
my $config_tag1 = '5.38.1 - Sun Nov 26 14:06:45 UTC 2023';

my $patchlevel_date = 1681659354;
my $patchlevel_date = 1700923170;
my @patches = Config::local_patches();
my $patch_tags = join "", map /(\S+)/ ? "+$1 " : (), @patches;

Expand Down Expand Up @@ -34,7 +34,7 @@ BEGIN {
$::HaveWrap = ($@ eq "");
};

our $VERSION = "1.42";
our $VERSION = "1.43";

#TODO:
# make sure failure (transmission-wise) of Mail::Send is accounted for.
Expand Down Expand Up @@ -568,6 +568,10 @@ generated with the help of perlbug $VERSION running under perl $perl_version.
EOF

if ($report_about_module) {
print REP "Module: $report_about_module\n\n";
}

if ($body) {
print REP $body;
} elsif ($usefile) {
Expand All @@ -594,12 +598,25 @@ EOF
print REP <<'EOF';
-----------------------------------------------------------------
[Please describe your issue here]
<!--[Please describe your issue here]-->
**Description**
<!-- A clear and concise description of what the bug is. -->
[Please do not change anything below this line]
-----------------------------------------------------------------
**Steps to Reproduce**
<!-- A one-liner or script to reproduce the issue. -->
**Expected behavior**
<!-- A clear and concise description of what you expected to happen. -->
<!--[Please do not change anything below this line]-->
<!------------------------------------------------------------------- -->
EOF
}
}
Expand All @@ -619,26 +636,30 @@ sub Dump {
$severity ||= 'low';

print OUT <<EFF;
---
Flags:
category=$category
severity=$severity
**Flags**
- category=$category
- severity=$severity
EFF

if ($has_patch) {
print OUT <<EFF;
Type=Patch
PatchStatus=HasPatch
- Type=Patch
- PatchStatus=HasPatch
EFF
}

if ($report_about_module ) {
print OUT <<EFF;
module=$report_about_module
- module=$report_about_module
EFF
}
print OUT <<EFF;
---
**Perl configuration**
```
EFF
print OUT "This perlbug was built using Perl $config_tag1\n",
"It is being executed now by Perl $config_tag2.\n\n"
Expand Down Expand Up @@ -693,6 +714,7 @@ EOF
print OUT "$_='$value'\n";
}
}
print OUT "```\n";
} # sub Dump

sub Edit {
Expand Down
Loading

0 comments on commit 6510223

Please sign in to comment.