>> ./GetComponents:46: my $PARALLEL; >> ./GetComponents:47: my $QUEUE; >> ./GetComponents:48: eval { >> ./GetComponents:49: require threads; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:3: use 5.008; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:3: use 5.008; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:3: use 5.008; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:5: use strict; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:5: use strict; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:5: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:61: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:6: use warnings; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:6: use warnings; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:6: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:338: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:340: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:344: push @_, 'all' >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:347: ${^WARNING_BITS} = _bits($mask, @_); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:302: my $mask = shift ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:303: my $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:304: my $fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:305: my $no_fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:307: $mask = _expand_bits($mask); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:283: my $bits = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:284: my $want_len = ($LAST_BIT + 7) >> 3; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:285: my $len = length($bits); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:286: if ($len != $want_len) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:287: if ($bits eq "") { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:292: my $a = vec($bits, $Offsets{all} >> 1, 2); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:293: $a |= $a << 2; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:294: $a |= $a << 4; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:295: $bits .= chr($a) x ($want_len - $len); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:298: return $bits; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:308: foreach my $word ( @_ ) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:309: if ($word eq 'FATAL') { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:318: $mask |= $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:319: $mask |= $DeadBits{$word} if $fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:320: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:326: return $mask ; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:73: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:73: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:73: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:66: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:68: if (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:69: $^H &= ~&bits; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:41: my $bits = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:42: my @wrong; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:43: foreach my $s (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:44: if (exists $bitmask{$s}) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:45: $^H |= $explicit_bitmask{$s}; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:47: $bits |= $bitmask{$s}; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:53: if (@wrong) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:57: $bits; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:125: ); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:125: ); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:124: 'fallback' => 1 >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:54: $package = (caller())[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:56: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:57: $package->overload::OVERLOAD(@_); >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:29: $package = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:30: my %arg = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:31: my $sub; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:32: *{$package . "::(("} = \&nil; # Make it findable via fetchmethod. >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:32: *{$package . "::(("} = \&nil; # Make it findable via fetchmethod. >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:33: for (keys %arg) { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:34: if ($_ eq 'fallback') { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:41: unless exists $ops_seen{$_}; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:42: $sub = $arg{$_}; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:43: if (not ref $sub) { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:48: *{$package . "::(" . $_} = \&{ $sub }; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:48: *{$package . "::(" . $_} = \&{ $sub }; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:48: *{$package . "::(" . $_} = \&{ $sub }; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:34: if ($_ eq 'fallback') { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:41: unless exists $ops_seen{$_}; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:42: $sub = $arg{$_}; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:43: if (not ref $sub) { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:48: *{$package . "::(" . $_} = \&{ $sub }; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:48: *{$package . "::(" . $_} = \&{ $sub }; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:48: *{$package . "::(" . $_} = \&{ $sub }; >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:34: if ($_ eq 'fallback') { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:35: for my $sym (*{$package . "::()"}) { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:35: for my $sym (*{$package . "::()"}) { >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:36: *$sym = \&nil; # Make it findable via fetchmethod. >> /usr/lib/x86_64-linux-gnu/perl-base/overload.pm:37: $$sym = $arg{$_}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:8: our $VERSION = '2.25'; # remember to update version in POD! >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:9: my $XS_VERSION = $VERSION; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:10: $VERSION = eval $VERSION; >> (eval 27)[/usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:10]:1: 2.25 >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:13: require Config; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:14: if (! $Config::Config{useithreads}) { >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:66: my($self, $key) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:69: return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:19: if ($threads::shared::threads_shared) { >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:28: $threads::threads = 1; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:31: require XSLoader; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:32: XSLoader::load('threads', $XS_VERSION); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:21: my ($caller, $modlibname) = caller(); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:22: my $module = $caller; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:24: if (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:25: $module = $_[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:31: my $boots = "$module\::bootstrap"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:32: goto &$boots if defined &$boots; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:34: goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:36: my @modparts = split(/::/,$module); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:37: my $modfname = $modparts[-1]; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:38: my $modfname_orig = $modfname; # For .bs file search >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:40: my $modpname = join('/',@modparts); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:41: my $c = () = split(/::/,$caller,-1); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:42: $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:44: if ($modlibname !~ m{^/}) { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:68: my $file = "$modlibname/auto/$modpname/$modfname.so"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:75: my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:78: goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:80: my $bootname = "boot_$module"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:81: $bootname =~ s/\W/_/g; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:82: @DynaLoader::dl_require_symbols = ($bootname); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:84: my $boot_symbol_ref; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:93: my $libref = dl_load_file($file, 0) or do { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:97: push(@DynaLoader::dl_librefs,$libref); # record loaded object >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:99: $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:104: push(@DynaLoader::dl_modules, $module); # record loaded module >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:106: boot: >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:110: push(@DynaLoader::dl_shared_objects, $file); # record files loaded >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:111: return &$xs(@_); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:110: *new = \&create; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:127: 1; >> ./GetComponents:50: require threads::shared; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:3: use 5.008; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:3: use 5.008; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:3: use 5.008; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:5: use strict; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:5: use strict; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:5: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:61: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:6: use warnings; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:6: use warnings; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:6: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:338: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:340: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:344: push @_, 'all' >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:347: ${^WARNING_BITS} = _bits($mask, @_); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:302: my $mask = shift ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:303: my $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:304: my $fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:305: my $no_fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:307: $mask = _expand_bits($mask); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:283: my $bits = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:284: my $want_len = ($LAST_BIT + 7) >> 3; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:285: my $len = length($bits); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:286: if ($len != $want_len) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:287: if ($bits eq "") { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:292: my $a = vec($bits, $Offsets{all} >> 1, 2); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:293: $a |= $a << 2; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:294: $a |= $a << 4; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:295: $bits .= chr($a) x ($want_len - $len); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:298: return $bits; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:308: foreach my $word ( @_ ) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:309: if ($word eq 'FATAL') { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:318: $mask |= $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:319: $mask |= $DeadBits{$word} if $fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:320: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:326: return $mask ; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:7: use Config; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:7: use Config; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:7: use Config; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:41: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:42: @_ = @Config::EXPORT unless @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:44: my @funcs = grep $_ ne '%Config', @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:45: my $export_Config = @funcs < @_ ? 1 : 0; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:48: my $callpkg = caller(0); >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:49: foreach my $func (@funcs) { >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:55: *{"$callpkg\::Config"} = \%Config if $export_Config; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:55: *{"$callpkg\::Config"} = \%Config if $export_Config; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:56: return; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:9: use Scalar::Util qw(reftype refaddr blessed); >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:9: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:9: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:9: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:61: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:10: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:10: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:10: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:338: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:340: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:344: push @_, 'all' >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:347: ${^WARNING_BITS} = _bits($mask, @_); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:302: my $mask = shift ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:303: my $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:304: my $fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:305: my $no_fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:307: $mask = _expand_bits($mask); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:283: my $bits = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:284: my $want_len = ($LAST_BIT + 7) >> 3; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:285: my $len = length($bits); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:286: if ($len != $want_len) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:287: if ($bits eq "") { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:292: my $a = vec($bits, $Offsets{all} >> 1, 2); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:293: $a |= $a << 2; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:294: $a |= $a << 4; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:295: $bits .= chr($a) x ($want_len - $len); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:298: return $bits; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:308: foreach my $word ( @_ ) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:309: if ($word eq 'FATAL') { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:318: $mask |= $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:319: $mask |= $DeadBits{$word} if $fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:320: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:326: return $mask ; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:11: require Exporter; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:13: our @ISA = qw(Exporter); >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:14: our @EXPORT_OK = qw( >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:20: our $VERSION = "1.55"; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:21: $VERSION =~ tr/_//d; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:23: require List::Util; # List::Util loads the XS >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:9: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:9: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:9: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:61: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:10: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:10: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:10: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:338: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:340: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:344: push @_, 'all' >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:347: ${^WARNING_BITS} = _bits($mask, @_); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:302: my $mask = shift ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:303: my $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:304: my $fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:305: my $no_fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:307: $mask = _expand_bits($mask); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:283: my $bits = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:284: my $want_len = ($LAST_BIT + 7) >> 3; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:285: my $len = length($bits); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:286: if ($len != $want_len) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:287: if ($bits eq "") { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:292: my $a = vec($bits, $Offsets{all} >> 1, 2); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:293: $a |= $a << 2; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:294: $a |= $a << 4; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:295: $bits .= chr($a) x ($want_len - $len); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:298: return $bits; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:308: foreach my $word ( @_ ) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:309: if ($word eq 'FATAL') { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:318: $mask |= $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:319: $mask |= $DeadBits{$word} if $fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:320: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:326: return $mask ; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:35: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:35: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:35: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:66: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:68: if (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:69: $^H &= ~&bits; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:41: my $bits = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:42: my @wrong; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:43: foreach my $s (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:44: if (exists $bitmask{$s}) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:45: $^H |= $explicit_bitmask{$s}; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:47: $bits |= $bitmask{$s}; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:53: if (@wrong) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:57: $bits; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:11: require Exporter; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:13: our @ISA = qw(Exporter); >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:14: our @EXPORT_OK = qw( >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:19: our $VERSION = "1.55"; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:20: our $XS_VERSION = $VERSION; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:21: $VERSION =~ tr/_//d; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:23: require XSLoader; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:24: XSLoader::load('List::Util', $XS_VERSION); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:21: my ($caller, $modlibname) = caller(); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:22: my $module = $caller; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:24: if (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:25: $module = $_[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:31: my $boots = "$module\::bootstrap"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:32: goto &$boots if defined &$boots; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:34: goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:36: my @modparts = split(/::/,$module); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:37: my $modfname = $modparts[-1]; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:38: my $modfname_orig = $modfname; # For .bs file search >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:40: my $modpname = join('/',@modparts); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:41: my $c = () = split(/::/,$caller,-1); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:42: $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:44: if ($modlibname !~ m{^/}) { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:68: my $file = "$modlibname/auto/$modpname/$modfname.so"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:75: my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:78: goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:80: my $bootname = "boot_$module"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:81: $bootname =~ s/\W/_/g; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:82: @DynaLoader::dl_require_symbols = ($bootname); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:84: my $boot_symbol_ref; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:93: my $libref = dl_load_file($file, 0) or do { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:97: push(@DynaLoader::dl_librefs,$libref); # record loaded object >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:99: $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:104: push(@DynaLoader::dl_modules, $module); # record loaded module >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:106: boot: >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:110: push(@DynaLoader::dl_shared_objects, $file); # record files loaded >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:111: return &$xs(@_); >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:27: our $RAND; >> /usr/lib/x86_64-linux-gnu/perl-base/List/Util.pm:47: 1; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:24: List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863) >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:26: our @EXPORT_FAIL; >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:28: unless (defined &weaken) { >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:31: unless (defined &isweak) { >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:34: unless (defined &isvstring) { >> /usr/lib/x86_64-linux-gnu/perl-base/Scalar/Util.pm:59: 1; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:9: use Scalar::Util qw(reftype refaddr blessed); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:9: use Scalar::Util qw(reftype refaddr blessed); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:29: my $pkg = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:30: my $callpkg = caller($ExportLevel); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:38: my $exports = \@{"$pkg\::EXPORT"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:38: my $exports = \@{"$pkg\::EXPORT"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:42: return export $pkg, $callpkg, @_ >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:44: my $export_cache = ($Cache{$pkg} ||= {}); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:45: my $args = @_ or @_ = @$exports; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:47: if ($args and not %$export_cache) { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:51: my $heavy; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:54: if ($args or $fail) { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:57: foreach (@_); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:58: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:58: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:58: no strict 'refs'; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:66: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:68: if (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:69: $^H &= ~&bits; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:41: my $bits = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:42: my @wrong; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:43: foreach my $s (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:44: if (exists $bitmask{$s}) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:45: $^H |= $explicit_bitmask{$s}; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:47: $bits |= $bitmask{$s}; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:53: if (@wrong) { >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:57: $bits; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:11: our $VERSION = '1.61'; # Please update the pod, too. >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:12: my $XS_VERSION = $VERSION; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:13: $VERSION = eval $VERSION; >> (eval 28)[/usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:13]:1: 1.61 >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:16: $threads::shared::threads_shared = 1; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:19: $threads::shared::clone_warn = undef; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:22: if ($Config::Config{'useithreads'} && $threads::threads) { >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:66: my($self, $key) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Config.pm:69: return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:23: require XSLoader; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:24: XSLoader::load('threads::shared', $XS_VERSION); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:21: my ($caller, $modlibname) = caller(); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:22: my $module = $caller; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:24: if (@_) { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:25: $module = $_[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:31: my $boots = "$module\::bootstrap"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:32: goto &$boots if defined &$boots; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:34: goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:36: my @modparts = split(/::/,$module); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:37: my $modfname = $modparts[-1]; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:38: my $modfname_orig = $modfname; # For .bs file search >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:40: my $modpname = join('/',@modparts); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:41: my $c = () = split(/::/,$caller,-1); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:42: $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:44: if ($modlibname !~ m{^/}) { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:68: my $file = "$modlibname/auto/$modpname/$modfname.so"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:75: my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:78: goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:80: my $bootname = "boot_$module"; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:81: $bootname =~ s/\W/_/g; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:82: @DynaLoader::dl_require_symbols = ($bootname); >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:84: my $boot_symbol_ref; >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:93: my $libref = dl_load_file($file, 0) or do { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:97: push(@DynaLoader::dl_librefs,$libref); # record loaded object >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:99: $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:104: push(@DynaLoader::dl_modules, $module); # record loaded module >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:106: boot: >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:110: push(@DynaLoader::dl_shared_objects, $file); # record files loaded >> /usr/lib/x86_64-linux-gnu/perl-base/XSLoader.pm:111: return &$xs(@_); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:26: *is_shared = \&_id; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:65: my ($make_shared); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:187: }; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:189: 1; >> ./GetComponents:51: require Thread::Queue; >> /usr/share/perl/5.32/Thread/Queue.pm:3: use strict; >> /usr/share/perl/5.32/Thread/Queue.pm:3: use strict; >> /usr/share/perl/5.32/Thread/Queue.pm:3: use strict; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:61: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/strict.pm:62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; >> /usr/share/perl/5.32/Thread/Queue.pm:4: use warnings; >> /usr/share/perl/5.32/Thread/Queue.pm:4: use warnings; >> /usr/share/perl/5.32/Thread/Queue.pm:4: use warnings; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:338: shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:340: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:344: push @_, 'all' >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:347: ${^WARNING_BITS} = _bits($mask, @_); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:302: my $mask = shift ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:303: my $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:304: my $fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:305: my $no_fatal = 0 ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:307: $mask = _expand_bits($mask); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:283: my $bits = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:284: my $want_len = ($LAST_BIT + 7) >> 3; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:285: my $len = length($bits); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:286: if ($len != $want_len) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:287: if ($bits eq "") { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:292: my $a = vec($bits, $Offsets{all} >> 1, 2); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:293: $a |= $a << 2; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:294: $a |= $a << 4; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:295: $bits .= chr($a) x ($want_len - $len); >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:298: return $bits; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:308: foreach my $word ( @_ ) { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:309: if ($word eq 'FATAL') { >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:318: $mask |= $catmask ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:319: $mask |= $DeadBits{$word} if $fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:320: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; >> /usr/lib/x86_64-linux-gnu/perl-base/warnings.pm:326: return $mask ; >> /usr/share/perl/5.32/Thread/Queue.pm:9: use threads::shared 1.21; >> /usr/share/perl/5.32/Thread/Queue.pm:9: use threads::shared 1.21; >> /usr/share/perl/5.32/Thread/Queue.pm:9: use threads::shared 1.21; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:49: my @EXPORT = qw(share is_shared cond_wait cond_timedwait >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:51: if ($threads::threads) { >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:52: push(@EXPORT, 'bless'); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:56: my $caller = caller(); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:57: foreach my $sym (@EXPORT) { >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/share/perl/5.32/Thread/Queue.pm:10: use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr); >> /usr/share/perl/5.32/Thread/Queue.pm:10: use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr); >> /usr/share/perl/5.32/Thread/Queue.pm:10: use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:29: my $pkg = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:30: my $callpkg = caller($ExportLevel); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:38: my $exports = \@{"$pkg\::EXPORT"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:38: my $exports = \@{"$pkg\::EXPORT"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:42: return export $pkg, $callpkg, @_ >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:44: my $export_cache = ($Cache{$pkg} ||= {}); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:45: my $args = @_ or @_ = @$exports; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:47: if ($args and not %$export_cache) { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:51: my $heavy; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:54: if ($args or $fail) { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:57: foreach (@_); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> /usr/share/perl/5.32/Thread/Queue.pm:6: our $VERSION = '3.14'; # remember to update version in POD! >> /usr/share/perl/5.32/Thread/Queue.pm:7: $VERSION = eval $VERSION; >> (eval 29)[/usr/share/perl/5.32/Thread/Queue.pm:7]:1: 3.14 >> /usr/share/perl/5.32/Thread/Queue.pm:13: our @CARP_NOT = ("threads::shared"); >> /usr/share/perl/5.32/Thread/Queue.pm:313: 1; >> ./GetComponents:52: require Scalar::Util; >> ./GetComponents:54: unless ($@) { >> ./GetComponents:55: import threads; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:39: my $class = shift; # Not used >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:42: my @EXPORT = qw(async); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:45: while (my $sym = shift) { >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:71: my $caller = caller(); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:72: foreach my $sym (@EXPORT) { >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:74: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:74: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:74: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads.pm:78: if (exists($ENV{'PERL5_ITHREADS_STACK_SIZE'})) { >> ./GetComponents:56: import threads::shared; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:49: my @EXPORT = qw(share is_shared cond_wait cond_timedwait >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:51: if ($threads::threads) { >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:52: push(@EXPORT, 'bless'); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:56: my $caller = caller(); >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:57: foreach my $sym (@EXPORT) { >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> /usr/lib/x86_64-linux-gnu/perl/5.32/threads/shared.pm:59: *{$caller.'::'.$sym} = \&{$sym}; >> ./GetComponents:57: import Thread::Queue; >> ./GetComponents:58: import Scalar::Util; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:29: my $pkg = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:30: my $callpkg = caller($ExportLevel); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:38: my $exports = \@{"$pkg\::EXPORT"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:38: my $exports = \@{"$pkg\::EXPORT"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:42: return export $pkg, $callpkg, @_ >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:44: my $export_cache = ($Cache{$pkg} ||= {}); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:45: my $args = @_ or @_ = @$exports; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:47: if ($args and not %$export_cache) { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:51: my $heavy; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:54: if ($args or $fail) { >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:57: foreach (@_); >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; >> /usr/lib/x86_64-linux-gnu/perl-base/Exporter.pm:66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >> ./GetComponents:60: $PARALLEL = 1; >> ./GetComponents:61: $QUEUE = Thread::Queue->new(); >> /usr/share/perl/5.32/Thread/Queue.pm:18: my $class = shift; >> /usr/share/perl/5.32/Thread/Queue.pm:19: my @queue :shared = map { shared_clone($_) } @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> /usr/share/perl/5.32/Thread/Queue.pm:20: my %self :shared = ( 'queue' => \@queue ); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> /usr/share/perl/5.32/Thread/Queue.pm:21: return bless(\%self, $class); >> ./GetComponents:64: my $combined_components = "# This file was automatically generated " >> ./GetComponents:66: my %components_to_checkout; >> ./GetComponents:67: my %components_to_update; >> ./GetComponents:68: my @all_components; >> ./GetComponents:70: my $checkout_size : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:71: my $update_size : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:72: my @components_error : shared; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:73: my @warnings : shared; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:74: my %svn_servers : shared; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:75: my $ROOT = ''; >> ./GetComponents:76: my $VERBOSE = 0; >> ./GetComponents:77: my $DEBUG = 0; >> ./GetComponents:78: my $HELP = 0; >> ./GetComponents:79: my $MAN = 0; >> ./GetComponents:80: my $EXPERIMENTAL = 0; >> ./GetComponents:81: my $ANONYMOUS_CHECKOUT = 1; >> ./GetComponents:82: my $DO_UPDATES = undef; >> ./GetComponents:83: my $STATUS = 0; >> ./GetComponents:84: my $DIFF = 0; >> ./GetComponents:85: my $SHALLOW_CLONE = 0; >> ./GetComponents:86: my $DATE; >> ./GetComponents:87: my @CRL_LISTS; >> ./GetComponents:88: my @ORIG_LISTS; >> ./GetComponents:89: my %DEFINITIONS; >> ./GetComponents:90: my $cvs = 'cvs'; >> ./GetComponents:91: my $svn = 'svn'; >> ./GetComponents:92: my $git = 'git'; >> ./GetComponents:93: my $darcs = 'darcs'; >> ./GetComponents:94: my $wget = 'wget'; >> ./GetComponents:95: my $hg = 'hg'; >> ./GetComponents:96: my $curl = 'curl'; >> ./GetComponents:97: my $ln = "ln -nsf"; >> ./GetComponents:98: my $cvs_found = 0; >> ./GetComponents:99: my $svn_found = 0; >> ./GetComponents:100: my $git_found = 0; >> ./GetComponents:101: my $darcs_found = 0; >> ./GetComponents:102: my $wget_found = 0; >> ./GetComponents:103: my $curl_found = 0; >> ./GetComponents:104: my $hg_found = 0; >> ./GetComponents:108: my %updated_git_repos : shared; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:109: my %updated_darcs_repos : shared; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:110: my %updated_hg_repos : shared; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:111: my %verified_git_repos; >> ./GetComponents:112: my %verified_darcs_repos; >> ./GetComponents:113: my %verified_hg_repos; >> ./GetComponents:114: my %checkout_types = ( >> ./GetComponents:124: my $crl_dir = ".crl"; >> ./GetComponents:126: if ( defined( $ENV{HOME} ) ) { >> ./GetComponents:127: $crl_dir = "$ENV{HOME}/.crl"; >> ./GetComponents:132: if ( !-e "$crl_dir" ) { >> ./GetComponents:154: ) or pod2usage(2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:268: unshift(@_, \@ARGV); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:270: goto &GetOptionsFromArray; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:289: my ($argv, @optionlist) = @_; # local copy of the option descriptions >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:290: my $argend = '--'; # option list terminator >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:291: my %opctl = (); # table of option specs >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:292: my $pkg = $caller || (caller)[0]; # current context >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:294: my @ret = (); # accum for non-options >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:295: my %linkage; # linkage >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:296: my $userlinkage; # user supplied HASH >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:297: my $opt; # current option >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:298: my $prefix = $genprefix; # current prefix >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:300: $error = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:302: if ( $debug ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:332: $userlinkage = undef; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:333: if ( @optionlist && ref($optionlist[0]) and >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:342: if ( @optionlist && $optionlist[0] =~ /^\W+$/ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:354: %opctl = (); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:355: while ( @optionlist ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:903: $opctl->{"no$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:904: $opctl->{"no-$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:905: $opctl->{$_} = [@$entry]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:906: $opctl->{$_}->[CTL_TYPE] = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:903: $opctl->{"no$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:904: $opctl->{"no-$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:905: $opctl->{$_} = [@$entry]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:906: $opctl->{$_}->[CTL_TYPE] = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:864: my ($mand, $type, $dest) = >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:866: return (undef, "Cannot repeat while bundling: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:868: my ($mi, $cm, $ma) = ($5, $6, $7); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:869: return (undef, "{0} is useless in option spec: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:872: $type = 'i' if $type eq 'n'; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:873: $dest ||= '$'; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:874: $dest = $dest eq '@' ? CTL_DEST_ARRAY >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:877: $mi = $mand eq '=' ? 1 : 0 unless defined $mi; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:879: $mand = $mi ? '=' : ':'; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:881: $ma = $mi ? $mi : 1 unless defined $ma || defined $cm; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:882: return (undef, "Max must be greater than zero in option spec: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:884: return (undef, "Max less than min in option spec: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:888: $entry = [$type,$orig,undef,$dest,$mi,$ma||-1]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:864: my ($mand, $type, $dest) = >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:866: return (undef, "Cannot repeat while bundling: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:868: my ($mi, $cm, $ma) = ($5, $6, $7); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:869: return (undef, "{0} is useless in option spec: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:872: $type = 'i' if $type eq 'n'; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:873: $dest ||= '$'; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:874: $dest = $dest eq '@' ? CTL_DEST_ARRAY >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:877: $mi = $mand eq '=' ? 1 : 0 unless defined $mi; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:879: $mand = $mi ? '=' : ':'; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:881: $ma = $mi ? $mi : 1 unless defined $ma || defined $cm; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:882: return (undef, "Max must be greater than zero in option spec: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:884: return (undef, "Max less than min in option spec: \"$opt\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:888: $entry = [$type,$orig,undef,$dest,$mi,$ma||-1]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:903: $opctl->{"no$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:904: $opctl->{"no-$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:905: $opctl->{$_} = [@$entry]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:906: $opctl->{$_}->[CTL_TYPE] = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:903: $opctl->{"no$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:904: $opctl->{"no-$_"} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:905: $opctl->{$_} = [@$entry]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:906: $opctl->{$_}->[CTL_TYPE] = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:356: my $opt = shift (@optionlist); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:358: unless ( defined($opt) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:366: if ( $opt eq '<>' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:801: my ($opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:804: if ( $opt !~ m;^ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:825: my ($names, $spec) = ($1, $2); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:826: $spec = '' unless defined $spec; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:834: my $orig; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:836: my @names; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:837: if ( defined $names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:838: @names = split (/\|/, $names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:839: $orig = $names[0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:847: my $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:848: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:850: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:892: my $dups = ''; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:893: foreach ( @names ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:895: $_ = lc ($_) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:898: if ( exists $opctl->{$_} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:902: if ( $spec eq '!' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:909: $opctl->{$_} = $entry; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:913: if ( $dups && $^W ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:918: ($names[0], $orig); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:387: unless ( defined $name ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:398: if ( defined $userlinkage ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:415: if ( @optionlist > 0 && ref($optionlist[0]) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:418: my $rl = ref($linkage{$orig} = shift (@optionlist)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:420: if ( $rl eq "ARRAY" ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:466: if ( $opctl{$name}[CTL_TYPE] eq 'I' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:475: $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n" >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:479: die ($error) if $error; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:480: $error = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:483: if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:490: if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:499: if ( $debug ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:509: my $goon = 1; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:510: while ( $goon && @$argv > 0 ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:513: $opt = shift (@$argv); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:514: print STDERR ("=> arg \"", $opt, "\"\n") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:517: if ( defined($opt) && $opt eq $argend ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:523: my $tryopt = $opt; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:524: my $found; # success status >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:525: my $key; # key (if hash type) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:526: my $arg; # option argument >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:527: my $ctl; # the opctl entry >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:529: ($found, $opt, $ctl, $arg, $key) = >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:928: my ($argv, $prefix, $argend, $opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:930: print STDERR ("=> find \"$opt\"\n") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:932: return (0) unless defined($opt); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:933: return (0) unless $opt =~ /^($prefix)(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:934: return (0) if $opt eq "-" && !defined $opctl->{''}; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:936: $opt = substr( $opt, length($1) ); # retain taintedness >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:937: my $starter = $1; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:939: print STDERR ("=> split \"$starter\"+\"$opt\"\n") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:941: my $optarg; # value supplied with --opt=value >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:942: my $rest; # remainder from unbundling >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:946: if ( ($starter=~/^$longprefix$/ >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:958: my $tryopt = $opt; # option to try >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:960: if ( ( $bundling || $bundling_values ) && $starter eq '-' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1003: my @names = sort(keys (%$opctl)); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1005: $opt = lc ($opt) if $ignorecase; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1006: $tryopt = $opt; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1008: my $pat = quotemeta ($opt); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1010: my @hits = grep (/^$pat/, @names); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1011: print STDERR ("=> ", scalar(@hits), " hits (@hits) with \"$pat\" ", >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1015: unless ( (@hits <= 1) || (grep ($_ eq $opt, @hits) == 1) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1045: if ( @hits == 1 && $hits[0] ne $opt ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1060: my $ctl = $opctl->{$tryopt}; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1061: unless ( defined $ctl ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1078: $opt = $tryopt; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1079: print STDERR ("=> found ", OptCtl($ctl), >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1085: my $type = $ctl->[CTL_TYPE]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1086: my $arg; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1088: if ( $type eq '' || $type eq '!' || $type eq '+' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1089: if ( defined $optarg ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1098: $arg = 1; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1104: unshift (@$argv, $starter.$rest) if defined $rest; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:1105: return (1, $opt, $ctl, $arg); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:532: if ( $found ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:535: next unless defined $opt; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:537: my $argcnt = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:538: while ( defined $arg ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:541: print STDERR ("=> cname for \"$opt\" is ") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:542: $opt = $ctl->[CTL_CNAME]; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:543: print STDERR ("\"$ctl->[CTL_CNAME]\"\n") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:545: if ( defined $linkage{$opt} ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:547: ref($linkage{$opt}), "\n") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:549: if ( ref($linkage{$opt}) eq 'SCALAR' >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:551: if ( $ctl->[CTL_TYPE] eq '+' ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:582: print STDERR ("=> \$\$L{$opt} = \"$arg\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:584: ${$linkage{$opt}} = $arg; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:584: ${$linkage{$opt}} = $arg; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:679: $argcnt++; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:680: last if $argcnt >= $ctl->[CTL_AMAX] && $ctl->[CTL_AMAX] != -1; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:513: $opt = shift (@$argv); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:514: print STDERR ("=> arg \"", $opt, "\"\n") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:517: if ( defined($opt) && $opt eq $argend ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:523: my $tryopt = $opt; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:524: my $found; # success status >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:525: my $key; # key (if hash type) >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:526: my $arg; # option argument >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:527: my $ctl; # the opctl entry >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:529: ($found, $opt, $ctl, $arg, $key) = >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:928: my ($argv, $prefix, $argend, $opt, $opctl) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:930: print STDERR ("=> find \"$opt\"\n") if $debug; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:932: return (0) unless defined($opt); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:933: return (0) unless $opt =~ /^($prefix)(.*)$/s; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:532: if ( $found ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:726: my $cb; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:727: if ( defined ($cb = $linkage{'<>'}) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:755: print STDERR ("=> saving \"$tryopt\" ", >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:757: push (@ret, $tryopt); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:759: next; >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:772: if ( @ret && ( $order == $PERMUTE || $passthrough ) ) { >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:774: print STDERR ("=> restoring \"", join('" "', @ret), "\"\n") >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:776: unshift (@$argv, @ret); >> /usr/lib/x86_64-linux-gnu/perl-base/Getopt/Long.pm:779: return ($error == 0); >> ./GetComponents:155: pod2usage(1) if $HELP; >> ./GetComponents:156: pod2usage( -verbose => 2 ) if $MAN; >> ./GetComponents:158: find_tools(); >> ./GetComponents:270: if ( system("which $cvs >/dev/null 2>&1") == 0 ) { $cvs_found = 1 } >> ./GetComponents:271: if ( system("which $svn >/dev/null 2>&1") == 0 ) { $svn_found = 1 } >> ./GetComponents:271: if ( system("which $svn >/dev/null 2>&1") == 0 ) { $svn_found = 1 } >> ./GetComponents:272: if ( system("which $git >/dev/null 2>&1") == 0 ) { $git_found = 1 } >> ./GetComponents:272: if ( system("which $git >/dev/null 2>&1") == 0 ) { $git_found = 1 } >> ./GetComponents:273: if ( system("which $curl >/dev/null 2>&1") == 0 ) { >> ./GetComponents:274: $curl_found = 1; >> ./GetComponents:275: $curl .= " -f"; >> ./GetComponents:278: if ( system("which $darcs >/dev/null 2>&1") == 0 ) { $darcs_found = 1 } >> ./GetComponents:279: if ( system("which $hg >/dev/null 2>&1") == 0 ) { $hg_found = 1 } >> ./GetComponents:280: if ($cvs_found) { >> ./GetComponents:160: &process_args(); >> ./GetComponents:228: unless ( @ARGV || ( -e ".crl/component_list.crl" ) ) { >> ./GetComponents:233: if ( @ARGV == 0 ) { >> ./GetComponents:241: foreach my $ARG (@ARGV) { >> ./GetComponents:244: push @ORIG_LISTS, $ARG; >> ./GetComponents:245: if ( $ARG =~ m!^https?://! ) { >> ./GetComponents:249: push @CRL_LISTS, $ARG; >> ./GetComponents:163: if ( $ROOT ne '' ) { $DEFINITIONS{ROOT} = $ROOT } >> ./GetComponents:165: parse_list(); >> ./GetComponents:315: my $file = ''; >> ./GetComponents:316: foreach my $LIST (@CRL_LISTS) { >> ./GetComponents:317: open( my $COMPONENT_LIST, $LIST ) or DIE("Could not open $LIST"); >> ./GetComponents:320: while (<$COMPONENT_LIST>) { >> ./GetComponents:321: next if m/^#|^\s*$/; >> ./GetComponents:321: next if m/^#|^\s*$/; >> ./GetComponents:321: next if m/^#|^\s*$/; >> ./GetComponents:321: next if m/^#|^\s*$/; >> ./GetComponents:321: next if m/^#|^\s*$/; >> ./GetComponents:321: next if m/^#|^\s*$/; >> ./GetComponents:322: if (m/^!CRL_VERSION .*_experimental/) { >> ./GetComponents:326: if (m/^!CRL_VERSION/) { >> ./GetComponents:329: $combined_components .= $_; >> ./GetComponents:330: $_ = ''; >> ./GetComponents:331: last; >> ./GetComponents:346: my @lines = <$COMPONENT_LIST>; >> ./GetComponents:347: close($COMPONENT_LIST); >> ./GetComponents:350: map s/(\r\n|\r)/\n/gm, @lines; >> ./GetComponents:353: my $i = -1; >> ./GetComponents:354: foreach my $line (@lines) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:355: $i++; >> ./GetComponents:356: if ( $line =~ /^[^#]*!INCLUDE *= *(.*)$/ ) { >> ./GetComponents:362: my $line_nr = 0; >> ./GetComponents:363: foreach my $line (@lines) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:366: my ( $def, $value ) = ( $1, $2 ); >> ./GetComponents:369: next if $def eq 'ROOT' && $ROOT ne ''; >> ./GetComponents:372: $value =~ s/\$(\w+)/$DEFINITIONS{$1}/; >> ./GetComponents:375: if ( defined( $DEFINITIONS{$def} ) >> ./GetComponents:387: $DEFINITIONS{$def} = $value; >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:366: my ( $def, $value ) = ( $1, $2 ); >> ./GetComponents:369: next if $def eq 'ROOT' && $ROOT ne ''; >> ./GetComponents:372: $value =~ s/\$(\w+)/$DEFINITIONS{$1}/; >> ./GetComponents:375: if ( defined( $DEFINITIONS{$def} ) >> ./GetComponents:387: $DEFINITIONS{$def} = $value; >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:366: my ( $def, $value ) = ( $1, $2 ); >> ./GetComponents:369: next if $def eq 'ROOT' && $ROOT ne ''; >> ./GetComponents:372: $value =~ s/\$(\w+)/$DEFINITIONS{$1}/; >> ./GetComponents:375: if ( defined( $DEFINITIONS{$def} ) >> ./GetComponents:387: $DEFINITIONS{$def} = $value; >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:366: my ( $def, $value ) = ( $1, $2 ); >> ./GetComponents:369: next if $def eq 'ROOT' && $ROOT ne ''; >> ./GetComponents:372: $value =~ s/\$(\w+)/$DEFINITIONS{$1}/; >> ./GetComponents:375: if ( defined( $DEFINITIONS{$def} ) >> ./GetComponents:387: $DEFINITIONS{$def} = $value; >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:366: my ( $def, $value ) = ( $1, $2 ); >> ./GetComponents:369: next if $def eq 'ROOT' && $ROOT ne ''; >> ./GetComponents:372: $value =~ s/\$(\w+)/$DEFINITIONS{$1}/; >> ./GetComponents:375: if ( defined( $DEFINITIONS{$def} ) >> ./GetComponents:387: $DEFINITIONS{$def} = $value; >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:364: $line_nr++; >> ./GetComponents:365: if ( $line =~ /^!DEFINE\s*([^\s]+)\s*=\s*(.+)/ ) { >> ./GetComponents:391: $file .= "\n\n# Component list: $LIST\n\n"; >> ./GetComponents:392: $file .= join( "", @lines ); >> ./GetComponents:394: my $orig_file = $file; >> ./GetComponents:397: $file =~ s/^\s*#.*$//gm; >> ./GetComponents:398: $file =~ s/\n\n/\n/g; >> ./GetComponents:399: $file =~ s/#.*$//gm; >> ./GetComponents:402: $file =~ s/!ANONYMOUS_USER/!ANON_USER/gm; >> ./GetComponents:403: $file =~ s/!ANONYMOUS_PASS/!ANON_PASS/gm; >> ./GetComponents:404: $file =~ s/!ANONYMOUS_PASSWORD/!ANON_PASS/gm; >> ./GetComponents:405: $file =~ s/!LOCAL_PATH/!LOC_PATH/gm; >> ./GetComponents:406: $file =~ s/!REPOSITORY_PATH/!REPO_PATH/gm; >> ./GetComponents:407: $file =~ s/!REPOSITORY_BRANCH/!REPO_BRANCH/gm; >> ./GetComponents:408: $file =~ s/!AUTHORIZATION_URL/!AUTH_URL/gm; >> ./GetComponents:411: $file =~ s/(?> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:412: exists $DEFINITIONS{$1} ? $DEFINITIONS{$1} : '$'.$1 >> ./GetComponents:414: if ($file =~ /(?> ./GetComponents:426: if ( defined( $DEFINITIONS{ROOT} ) ) { $ROOT = $DEFINITIONS{ROOT} } >> ./GetComponents:426: if ( defined( $DEFINITIONS{ROOT} ) ) { $ROOT = $DEFINITIONS{ROOT} } >> ./GetComponents:428: DIE("Target directory '$ROOT' exists and is not a directory") if (-e $ROOT and not -d $ROOT); >> ./GetComponents:430: my @sections = split( /^!TARGET\s*=\s*/m, $file ); >> ./GetComponents:431: shift(@sections); >> ./GetComponents:432: foreach my $section (@sections) { >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:649: $git_repo = $rec{NAME}; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:601: $dir1 = $checkout; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:663: my $zero : shared = 0; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:664: $updated_git_repos{$git_repo} = \$zero; >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:645: if ( $rec{"TYPE"} eq "git" ) { >> ./GetComponents:646: my $git_repo; >> ./GetComponents:648: if (defined($rec{NAME})) { >> ./GetComponents:651: $git_repo = $rec{"URL"}; >> ./GetComponents:652: $git_repo =~ s/\.git$//; >> ./GetComponents:653: $git_repo =~ s/^.*[:\/]//; >> ./GetComponents:655: $rec{"REPO"} = $git_repo; >> ./GetComponents:656: $rec{"REPO"} =~ s!\$1!$dir1!; >> ./GetComponents:657: $rec{"REPO"} =~ s!\$2!$dir2!; >> ./GetComponents:662: if (not exists $updated_git_repos{$git_repo}) { >> ./GetComponents:669: if ( $rec{"TYPE"} eq "darcs" ) { >> ./GetComponents:693: if ( $rec{"TYPE"} eq "hg" ) { >> ./GetComponents:717: my @prereqs : shared = (); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:718: $rec{"PREREQUISITS"} = \@prereqs; >> ./GetComponents:719: $rec{"COMPLETED"} = 0; >> ./GetComponents:721: $rec{"CHECKOUT"} = $checkout; >> ./GetComponents:725: my %component : shared = %rec; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:55: @_ > 2 && ref $_[2] or do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:59: my (undef,$home_stash,$svref,@attrs) = @_; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:61: my $svtype = uc reftype($svref); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:62: my $pkgmeth; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:63: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:65: my @badattrs; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:66: if ($pkgmeth) { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:85: @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:32: my $svtype = shift; >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:38: $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { >> /usr/lib/x86_64-linux-gnu/perl-base/attributes.pm:87: if (@badattrs) { >> ./GetComponents:726: my $name = $rec{"NAME"}; >> ./GetComponents:727: my $dir = defined($name) ? $name : $checkout; >> ./GetComponents:730: if ( $component{"TYPE"} eq 'ignore' ) { >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:746: push @{ $components_to_update{$target} }, \%component; >> ./GetComponents:770: push @all_components, \%component; >> ./GetComponents:436: if ( $section =~ /^$/ ) { next } >> ./GetComponents:438: $section = "!TARGET = $section"; >> ./GetComponents:439: my @pairs = split( /^\s*!([^\s=]+)\s*=\s*/m, $section ); >> ./GetComponents:440: shift(@pairs); >> ./GetComponents:442: for my $pairs (@pairs) { >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:443: $pairs =~ s/\s+$//; >> ./GetComponents:446: my %rec; >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:449: { no warnings 'all'; %rec = @pairs; } >> ./GetComponents:452: if ( $rec{"TYPE"} eq "ignore" ) { >> ./GetComponents:456: if ( !defined( $rec{"CHECKOUT"} ) ) { >> ./GetComponents:460: chomp %rec; >> ./GetComponents:463: if ( !defined( $rec{"TYPE"} ) ) { >> ./GetComponents:468: $|++; >> ./GetComponents:469: if ( ( $rec{"TYPE"} eq "cvs" ) && ( !$cvs_found ) ) { >> ./GetComponents:483: if ( ( $rec{"TYPE"} eq "svn" ) && ( !$svn_found ) ) { >> ./GetComponents:497: if ( ( $rec{"TYPE"} eq "git" ) && ( !$git_found ) ) { >> ./GetComponents:511: if ( ( $rec{"TYPE"} eq ( "http" or "https" ) ) >> ./GetComponents:540: if ( ( $rec{"TYPE"} eq "darcs" ) && ( !$darcs_found ) ) { >> ./GetComponents:554: if ( ( $rec{"TYPE"} eq "hg" ) && ( !$hg_found ) ) { >> ./GetComponents:568: $|--; >> ./GetComponents:571: my $target = $rec{"TARGET"}; >> ./GetComponents:574: if ( defined( $rec{"URL"} ) and !defined( $rec{"AUTH_URL"} ) ) { >> ./GetComponents:575: $rec{"AUTH_URL"} = $rec{"URL"}; >> ./GetComponents:579: $rec{"URL_ORIG"} = $rec{"URL"}; >> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"}; >> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) { >> ./GetComponents:584: delete $rec{AUTH_URL}; >> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} ); >> ./GetComponents:593: foreach my $checkout (@checkouts) { >> ./GetComponents:596: my ( $dir1, $dir2 ); >> ./GetComponents:597: if ( $checkout =~ m!/! ) { >> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!; >> ./GetComponents:603: if ( defined( $rec{URL} ) ) { >> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"}; >> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!; >> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!; >> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) { >> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) { >> ./GetComponents:617: my $url = ($rec{"AUTH_URL"} or $rec{"URL"}); >> ./GetComponents:618: if ( $url =~ m!https://! ) { >> ./GetComponents:619: my $base = $url; >> ./GetComponents:620: $base =~ s/(https\:\/\/[\w\.]+)\/(.*)$/$1/i; >> ./GetComponents:621: unless ( defined $svn_servers{$base} ) { >> ./GetComponents:622: print("DEBUG LINE, print: $url\n"); >> ./GetComponents:623: print("DEBUG LINE, print: $svn\n"); >> ./GetComponents:624: my $ret = `$svn --non-interactive info $url 2>&1`; DEBUG LINE, print: https://github.com/EinsteinToolkit/ExternalLibraries-OpenBLAS.git/branches/ET_2021_11 DEBUG LINE, print: svn