[vhffs-dev] [1483] Perl 5.10 compat (what is this syntax?!)

[ Thread Index | Date Index | More vhffs.org/vhffs-dev Archives ]


Revision: 1483
Author:   beuss
Date:     2009-07-30 07:35:48 +0200 (Thu, 30 Jul 2009)

Log Message:
-----------
Perl 5.10 compat (what is this syntax?!)

Modified Paths:
--------------
    trunk/vhffs-irc/modobot.pl


Modified: trunk/vhffs-irc/modobot.pl
===================================================================
--- trunk/vhffs-irc/modobot.pl	2009-07-28 05:43:26 UTC (rev 1482)
+++ trunk/vhffs-irc/modobot.pl	2009-07-30 05:35:48 UTC (rev 1483)
@@ -66,7 +66,7 @@
 	my $objects = Vhffs::Object::getall( $vhffs, undef, Vhffs::Constants::WAITING_FOR_VALIDATION );
 	if( defined $objects )  {
 		foreach my $obj ( @{$objects} ) {
-			next if( $seq && exists( ${%oldobjects}{$obj->get_oid} ) );
+			next if( $seq && exists( $oldobjects{$obj->get_oid} ) );
 
 			my $user = $obj->get_user;
 			my $group = $obj->get_group;
@@ -79,7 +79,7 @@
 			$msg .= "\n[".format_tags_list($group).']';
 			irc_msg( $msg );
 
-			${%oldobjects}{$obj->get_oid} = '';
+			$oldobjects{$obj->get_oid} = '';
 		}
 	}
 }
@@ -161,7 +161,7 @@
 				irc_msg( 'Object '.$oid.' refused ('.$charset.' detected)' );
 			}
 		}
-		delete ${%oldobjects}{$oid};
+		delete $oldobjects{$oid};
 	}
 	return 0;
 }


Mail converted by MHonArc 2.6.19+ http://listengine.tuxfamily.org/