Attachment 22839 Details for Bug 11183 – Sample code demonstrating problem Galen found.

Sample code demonstrating problem Galen found.

perltest.pl (text/plain), 6.30 KB, created by Mark Tompsett on 2013-11-08 17:02:17 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Mark Tompsett

Created: 2013-11-08 17:02:17 UTC

Size: 6.30 KB

patch

obsolete

>#!/usr/bin/perl -Tw
>
>use Data::Dumper;
>
>my $collections;
>my $ccode;
>my %hash = ( 'a' => 'whatever', '0' => 'breaks things', '' => 'can this be' );
>
>$collections = \%hash;
>print Dumper($collections) . "\n";
>
>$ccode = undef;
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = '';
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 0;
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 'a';
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>
>
>$ccode = undef;
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = '';
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 0;
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 'a';
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($collections) && exists( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>
>print "====\n";
>
>$ccode = undef;
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = '';
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 0;
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 'a';
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>
>$ccode = undef;
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = '';
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 0;
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 'a';
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( $ccode && $collections && $collections->{$ccode} ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>
>
>print "====\n";
>
>$ccode = undef;
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = '';
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 0;
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 'a';
>$collections = undef;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>
>$ccode = undef;
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = '';
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 0;
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}
>$ccode = 'a';
>$collections = \%hash;
>$s1 = $ccode // 'UNDEFINED';
>$s2 = $collections // 'UNDEFINED';
>if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) {
>    print "($s1), ($s2) = TRUE\n";
>}
>else {
>    print "($s1), ($s2) = FALSE\n";
>}

Actions: View

Attachments on bug 11183: 22663 | 22794 | 22801 | 22810 | 22839 | 22853 | 22855 | 22856 | 22857 | 22862 | 22866 | 22867 | 23095 | 23096 | 23097