From 7e3fa46ca3dccc361483b1ff8b3d24173660d6ed Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sat, 17 Oct 2020 18:16:16 -0700 Subject: [PATCH] update test cases for $# parsing fix --- t/snippets/comments.in | 2 +- t/snippets17.t | 2 +- t/snippets18.t | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/t/snippets/comments.in b/t/snippets/comments.in index 6edda543..7c0deb71 100644 --- a/t/snippets/comments.in +++ b/t/snippets/comments.in @@ -13,7 +13,7 @@ sub macro_get_names { # local(%name)=(); ## a static side comment to test -ssc # a spaced block comment to test -isbc - for (0..$ #mac_ver) { + for (0..$#mac_ver) { # a very long comment for testing the parameter --nooutdent-long-comments (or -nolc) $name{$_} = $mac_ext[$idx{$mac_exti[$_]}]; $vmsfile =~ s/;[\d\-]*$//; # very long side comment; Clip off version number; we can use a newer version as well diff --git a/t/snippets17.t b/t/snippets17.t index b6686e7c..f2fa32ce 100644 --- a/t/snippets17.t +++ b/t/snippets17.t @@ -103,7 +103,7 @@ sub macro_get_names { # local(%name)=(); ## a static side comment to test -ssc # a spaced block comment to test -isbc - for (0..$ #mac_ver) { + for (0..$#mac_ver) { # a very long comment for testing the parameter --nooutdent-long-comments (or -nolc) $name{$_} = $mac_ext[$idx{$mac_exti[$_]}]; $vmsfile =~ s/;[\d\-]*$//; # very long side comment; Clip off version number; we can use a newer version as well diff --git a/t/snippets18.t b/t/snippets18.t index d60f26c6..cd986388 100644 --- a/t/snippets18.t +++ b/t/snippets18.t @@ -132,7 +132,7 @@ sub macro_get_names { # local(%name)=(); ## a static side comment to test -ssc # a spaced block comment to test -isbc - for (0..$ #mac_ver) { + for (0..$#mac_ver) { # a very long comment for testing the parameter --nooutdent-long-comments (or -nolc) $name{$_} = $mac_ext[$idx{$mac_exti[$_]}]; $vmsfile =~ s/;[\d\-]*$//; # very long side comment; Clip off version number; we can use a newer version as well -- 2.39.5