Re: pkg_add href regex

[Taylor Stearns]

On Wed, Aug 02, 2017 at 11:41:52PM +0100, Stuart Henderson wrote:
> Please send a diff -u and don't indent it.

Here is the CVS diff -u:

Index: PackageRepository.pm
===================================================================
RCS file: /cvs/src/usr.sbin/pkg_add/OpenBSD/PackageRepository.pm,v
retrieving revision 1.145
diff -u -p -r1.145 PackageRepository.pm
--- PackageRepository.pm        20 Jun 2017 18:05:44 -0000      1.145
+++ PackageRepository.pm        3 Aug 2017 19:27:55 -0000
@@ -912,7 +912,7 @@ sub get_http_list
            $error) or return;
        while(<$fh>) {
                chomp;
-               for my $pkg (m/\<A\s+HREF=\"(.*?\.tgz)\"\>/gio) {
+               for my $pkg (m/\<A\s+HREF=\"(.*?\.tgz)\"/gio) {
                        $pkg = $1 if $pkg =~ m|^.*/(.*)$|;
                        # decode uri-encoding; from URI::Escape
                        $pkg =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
Index: PackageRepository/HTTP.pm
===================================================================
RCS file: /cvs/src/usr.sbin/pkg_add/OpenBSD/PackageRepository/HTTP.pm,v
retrieving revision 1.12
diff -u -p -r1.12 HTTP.pm
--- PackageRepository/HTTP.pm   27 Aug 2014 18:40:03 -0000      1.12
+++ PackageRepository/HTTP.pm   3 Aug 2017 19:27:55 -0000
@@ -280,7 +280,7 @@ sub get_directory
                        exit 1;
        }
        print "SUCCESS: directory $dname\n";
-       for my $pkg ($r =~ m/\<A\s+HREF=\"(.+?)\.tgz\"\>/gio) {
+       for my $pkg ($r =~ m/\<A\s+HREF=\"(.+?)\.tgz\"/gio) {
                $pkg = $1 if $pkg =~ m|^.*/(.*)$|;
                # decode uri-encoding; from URI::Escape
                $pkg =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;