On Sat Sep 10 21:56:07 2016, SPROUT wrote:
Show quoted text> On Sat Sep 10 17:45:10 2016, SREZIC wrote:
>
> This looks like d9d2b74cf4. See
>
https://rt.perl.org/Ticket/Display.html?id=128478 for a bit of
> background and explanation.
>
> The code should be using "$foo\::$bar" or "$foo:\:$bar" (my
> preference) or "${foo}::$bar", rather than "$foo::$bar".
All tests pass with this patch.
diff -rup ETL-Pipeline-2.01-0-orig/lib/ETL/Pipeline.pm ETL-Pipeline-2.01-0/lib/ETL/Pipeline.pm
--- ETL-Pipeline-2.01-0-orig/lib/ETL/Pipeline.pm 2016-09-10 22:38:07.000000000 -0700
+++ ETL-Pipeline-2.01-0/lib/ETL/Pipeline.pm 2016-09-10 22:38:17.000000000 -0700
@@ -997,7 +997,7 @@ sub _object_of_class {
if ($class =~ m/^\+/) {
$class =~ s/^\+//;
} elsif ($class !~ m/^ETL::Pipeline::$action/) {
- $class = "ETL::Pipeline::$action::$class";
+ $class = "ETL::Pipeline::$action:\:$class";
}
my %attributes = @arguments;